91 lines
1.9 KiB
Fortran
91 lines
1.9 KiB
Fortran
|
! { dg-do compile }
|
||
|
! { dg-options -std=f95 }
|
||
|
! PR 19262 Test limit on line continuations. Test case derived form case in PR
|
||
|
! by Steve Kargl. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
||
|
print *, &
|
||
|
"1" // & ! 1
|
||
|
"2" // & ! 2
|
||
|
"3" // & ! 3
|
||
|
"4" // & ! 4
|
||
|
"5" // & ! 5
|
||
|
"6" // & ! 6
|
||
|
"7" // & ! 7
|
||
|
"8" // & ! 8
|
||
|
"9" // & ! 9
|
||
|
"0" // & ! 10
|
||
|
"1" // & ! 11
|
||
|
"2" // & ! 12
|
||
|
"3" // & ! 13
|
||
|
"4" // & ! 14
|
||
|
"5" // & ! 15
|
||
|
"6" // & ! 16
|
||
|
"7" // & ! 17
|
||
|
"8" // & ! 18
|
||
|
"9" // & ! 19
|
||
|
"0" // & ! 20
|
||
|
"1" // & ! 21
|
||
|
"2" // & ! 22
|
||
|
"3" // & ! 23
|
||
|
"4" // & ! 24
|
||
|
"5" // & ! 25
|
||
|
"6" // & ! 26
|
||
|
"7" // & ! 27
|
||
|
"8" // & ! 28
|
||
|
"9" // & ! 29
|
||
|
"0" // & ! 30
|
||
|
"1" // & ! 31
|
||
|
"2" // & ! 32
|
||
|
"3" // & ! 33
|
||
|
"4" // & ! 34
|
||
|
"5" // & ! 35
|
||
|
"6" // & ! 36
|
||
|
"7" // & ! 37
|
||
|
"8" // & ! 38
|
||
|
"9"
|
||
|
print *, &
|
||
|
"1" // & ! 1
|
||
|
"2" // & ! 2
|
||
|
"3" // & ! 3
|
||
|
"4" // & ! 4
|
||
|
"5" // & ! 5
|
||
|
"6" // & ! 6
|
||
|
"7" // & ! 7
|
||
|
"8" // & ! 8
|
||
|
"9" // & ! 9
|
||
|
"0" // & ! 10
|
||
|
"1" // & ! 11
|
||
|
"2" // & ! 12
|
||
|
"3" // & ! 13
|
||
|
"4" // & ! 14
|
||
|
"5" // & ! 15
|
||
|
"6" // & ! 16
|
||
|
"7" // & ! 17
|
||
|
"8" // & ! 18
|
||
|
"9" // & ! 19
|
||
|
"0" // & ! 20
|
||
|
"1" // & ! 21
|
||
|
"2" // & ! 22
|
||
|
"3" // & ! 23
|
||
|
"4" // & ! 24
|
||
|
"5" // & ! 25
|
||
|
"6" // & ! 26
|
||
|
"7" // & ! 27
|
||
|
"8" // & ! 28
|
||
|
"9" // & ! 29
|
||
|
!
|
||
|
!
|
||
|
"0" // & ! 30
|
||
|
"1" // & ! 31
|
||
|
!
|
||
|
!
|
||
|
"2" // & ! 32
|
||
|
"3" // & ! 33
|
||
|
"4" // & ! 34
|
||
|
"5" // & ! 35
|
||
|
"6" // & ! 36
|
||
|
"7" // & ! 37
|
||
|
"8" // & ! 38
|
||
|
"9" // & ! 39
|
||
|
"0" ! { dg-warning "Limit of 39 continuations exceeded" }
|
||
|
|
||
|
end
|