We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent f3966ae commit 6aac856Copy full SHA for 6aac856
test/test_source/diag/test_semicolon.f90
@@ -1,5 +1,19 @@
1
program test_semicolon
2
implicit none
3
- integer :: a = 1; character(len=1) :: v; real, parameter :: p = 0.1E-4
4
- print*, a; print*, p
+ integer :: a = 1; character(len=1) :: v; real, parameter :: p = 0.1E-4; character(len=10), parameter :: str = "a;val;that"
+ 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
19
end program test_semicolon
0 commit comments