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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
! -I0 -i5 -a1 -b2 -d3 -f4 -m5 -ifixed
module m1
integer k
enum, bind(c)
enumerator :: red =1, blue, black =5
enumerator yellow
enumerator gold, silver, bronze
enumerator :: purple
enumerator :: pink, lavender
endenum
#ifdef foo
garbage
#endif
contains
function f(x)
print *,'abc
9 def'
print *,"abcd
8 efgh"
return
end function
#ifdef usempi
function f1(x,m)
real x,m
#elif defined(useopenmp)
function f1(x,m,n)
real x,m,n
#else
function f1(x)
real x
#endif
continue
end function f1
end module
program progfixed
type mytype ! mytype
integer i
real x
end type mytype
#ifdef abcde
real klm(10)
#endif
integer x(100)
type(mytype) xyz
continue
do i=1,20
block
do 90 k=1,90
do 90 k1=1,4
call one(a)
do 7 j=1,20
call two(a)
7 x=x+j
continue
90 continue
continue
end block
enddo
critical
x=y
endcritical
critical
x=y
endcritical
critical
x=y
end critical
if (.false.) goto 88
if (.false.) goto 99999
88 if ('x' .eq. "abc''d") l=1
99999 continue
if ('x' .eq. "abc''d")then
continue
endif
ASSOCIATE ( Z => EXP(-(a**2+Y**2)) * COS(THETA))
PRINT *, A+Z, A-Z
END ASSOCIATE
forall(i=1:4) x(i)=5
continue
forall(i=1:4) ! forall
x(i)=6
end forall
where(x.eq.0) x=5 ! where
continue
where(x.eq.0)
x=10
endwhere
continue
where(x.eq.0)
x=10
elsewhere
x=11
endwhere
select case(ia)
case(1)
print *,3
do i=1,9
continue
enddo
case(2)
print*,6
case default
print *,0
endselect
end program
subroutine one(a)
continue
entry myentry
continue
return
end subroutine
subroutine two(a)
continue
return
endsubroutine
subroutine three(a)
continue
return
end
subroutine four(a)
continue
return
endsubroutine four
subrou
xtine five
continue
return
end
|