blob: a30d604608187e7d8fe39b9febd322285ebf3ac4 (
plain)
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
|
