1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
program intrinsics_134
character(4), parameter :: y = adjustl("okay")
character(len=5) :: x
character(len=20) :: str = ' gfortran'
str = adjustl(str)
print *, str
if (str /= 'gfortran') error stop
str = adjustl(' gfortran')
print *, str
if (str /= 'gfortran') error stop
print *, "|"//adjustl(" abc")//"|"
if ("|"//adjustl(" abc")//"|" /= '|abc |') error stop
x = " "
print *, adjustl(x)
print *, adjustl(" ")
if (adjustl(" ") /= " ") error stop
if (adjustl(x) /= " ") error stop
if (y /= "okay") error stop
end program
|
