gcc/testsuite/gfortran.dg/g77/ffree-form-3.f

   1 ! Test acceptance of keywords in free format
   2 ! Origin: David Billinghurst <David.Billinghurst@riotinto.com>
   3 !
   4 ! { dg-do compile }
   5 ! { dg-options "-ffree-form" }
   6   integer i, j
   7   i = 1
   8   if ( i .eq. 1 ) then
   9     go = 2
  10   endif
  11   if ( i .eq. 3 ) then
  12      i = 4
  13   end if
  14   do i = 1, 3
  15     j = i
  16   end do
  17   do j = 1, 3
  18     i = j
  19   enddo
  20   end