1! RUN: %S/test_errors.sh %s %t %f18
2! Simple check that if constructs are ok.
3
4if (a < b) then
5  a = 1
6end if
7
8if (a < b) then
9  a = 2
10else
11  a = 3
12endif
13
14if (a < b) then
15  a = 4
16else if(a == b) then
17  a = 5
18end if
19
20if (a < b) then
21  a = 6
22else if(a == b) then
23  a = 7
24elseif(a > b) then
25  a = 8
26end if
27
28if (a < b) then
29  a = 9
30else if(a == b) then
31  a = 10
32else
33  a = 11
34end if
35
36if (a < b) then
37  a = 12
38else if(a == b) then
39  a = 13
40else if(a > b) then
41  a = 14
42end if
43
44if (f()) then
45  a = 15
46end if
47
48contains
49  logical function f()
50    f = .true.
51  end
52end
53