ffree-form-3.f

linux下编程用 编译软件

! 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