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