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