ffree-form-3.f   [plain text]

! Test acceptance of keywords in free format
! Origin: David Billinghurst <David.Billinghurst@riotinto.com>
!
! { dg-do compile }
! { dg-options "-ffree-form" }
  integer i, j
  i = 1
  if ( i .eq. 1 ) then
    go = 2
  endif
  if ( i .eq. 3 ) then
     i = 4
  end if
  do i = 1, 3
    j = i
  end do
  do j = 1, 3
    i = j
  enddo
  end