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.
6 ! Contributed by David Ham <David@ham.dropbear.id.au>
9 integer :: debuglevel
= 1
10 if (0 < debuglevel
) write (*,*) "Hello World"