Skip to content

Commit 6aac856

Browse files
committed
Update the multiline test file
1 parent f3966ae commit 6aac856

File tree

1 file changed

+16
-2
lines changed

1 file changed

+16
-2
lines changed
Lines changed: 16 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,19 @@
11
program test_semicolon
22
implicit none
3-
integer :: a = 1; character(len=1) :: v; real, parameter :: p = 0.1E-4
4-
print*, a; print*, p
3+
integer :: a = 1; character(len=1) :: v; real, parameter :: p = 0.1E-4; character(len=10), parameter :: str = "a;val;that"
4+
character(len=100), parameter :: str2 = "a;string;"&
5+
"that;becomes"// &
6+
";"&
7+
&"multiline";integer&
8+
:: b;real &
9+
&,&
10+
parameter&
11+
::&
12+
c&
13+
=&
14+
100&
15+
&0090;real :: d;real::e;real::f
16+
print*, "one";
17+
print*, str2
18+
print*, a; print*, p; ! a; comment; that;contains; semi-colons
519
end program test_semicolon

0 commit comments

Comments
 (0)