gcc/testsuite/gfortran.dg/namelist_62.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/45066
   4 !
   5 ! Contributed by Michael Richmond.
   6 !
   7 ! Was failing due to a -fwhole-file bug.
   8 !
   9
  10 MODULE GA_commons
  11   INTEGER :: nichflg(2)
  12 END MODULE GA_commons
  13
  14 PROGRAM gafortran
  15   USE GA_commons
  16   NAMELIST /ga/ nichflg
  17   READ (23, nml=ga)
  18 END PROGRAM gafortran
  19
  20 ! { dg-final { cleanup-modules "ga_commons" } }