1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
program line_continuation_04
implicit none
integer :: result, a, b, c
character(len=20) :: textblock
textblock = '&!'
print *, textblock
if (textblock /= "&!") error stop
textblock = "apple&
!apple
"
print *, textblock
if (textblock /= "apple") error stop
! textblock = "apple'&!apple"
! if (textblock /= "apple'&!apple") error stop
a = 1
b = 2
c = 3
! the below line doesn't have &! in a string
! hence, everything after ! is treated as a
! comment
result = a + b +&!addition here
c
print *, result
if (result /= 6) error stop
textblock = "& !"
print *, textblock
if (textblock /= "& !") error stop
end program line_continuation_04
|
