ffree-form-3.f

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F 代码 · 共 21 行

! Test acceptance of keywords in free format
! Origin: David Billinghurst <[e-mail]>
!
! { 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