blob: f727881d75b131b50a65867091c97d7ae3624a32 (
plain)
1
2
3
4
5
6
7
8
9
10
|
! We were incorrectly trying to create a variable for the common block itself,
! in addition to the variables it contains.
module FOO
implicit none
integer I
common /C/I
contains
subroutine BAR
end subroutine BAR
end module FOO
|