gcc/testsuite/gfortran.dg/program_name_1.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR28762 in which the program name would cause
   3 ! the compiler to test the write statement as a variable thereby generating
   4 ! an "Expecting VARIABLE" error.
   5 !
   6 ! Contributed by David Ham  <David@ham.dropbear.id.au>
   7 !
   8 program write
   9   integer :: debuglevel = 1
  10   if (0 < debuglevel) write (*,*) "Hello World"
  11 end program write