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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

! 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