20 lines
382 B
Fortran
20 lines
382 B
Fortran
! { dg-do run }
|
|
!
|
|
! This tests that blank common works in modules. PR23270
|
|
! Contributed by Paul Thomas <pault@gcc.gnu.org>
|
|
!
|
|
module global
|
|
common a, b
|
|
real a, b
|
|
end module global
|
|
program blank_common
|
|
use global
|
|
common z
|
|
complex z
|
|
a = 999.0_4
|
|
b = -999.0_4
|
|
if (z.ne.cmplx (a,b)) call abort ()
|
|
end program blank_common
|
|
|
|
! { dg-final { cleanup-modules "global" } }
|