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