1! { dg-do compile } 2! 3! fortran PR/60144 4! Contributed by Sergio Losilla 5! 6program ifelif 7 if a=b ! { dg-error "Missing ... in IF-expression" } 8 if (a=b ! { dg-error "Missing ... in statement at or before" } 9 if (a=b then ! { dg-error "Missing ... in statement at or before" } 10 if ((a=b) ! { dg-error "Expected a right parenthesis in expression" } 11 if ((a==b ! { dg-error "Expected a right parenthesis in expression" } 12 if ((a==b) ! { dg-error "Missing ... in statement at or before" } 13 if ((a==b) then ! { dg-error "Missing ... in statement at or before" } 14 if (a=b)) ! { dg-error "Missing ... in statement at or before" } 15 if .TRUE.) ! { dg-error "Missing ... in IF-expression" } 16 if (.TRUE.) ! { dg-error "Syntax error in IF-clause after" } 17 if (.TRUE.) the ! { dg-error "Syntax error in IF-clause after" } 18 if ((.TRUE.) ! { dg-error "Missing ... in statement at or before" } 19 else if .FALSE.) ! { dg-error "Missing ... in ELSE IF expression" } 20 else if (.FALSE. ! { dg-error "Missing ... in ELSE IF expression" } 21 else if (.FALSE.) ! { dg-error "Missing THEN in ELSE IF statement" } 22 else if (.FALSE.) the ! { dg-error "doesn't match IF label" } 23 else (.true.) ! { dg-error "Invalid character.s. in ELSE statement after" } 24 else a=1 ! { dg-error "Invalid character.s. in ELSE statement after" } 25 if a=b ! { dg-error "Missing ... in IF-expression" } 26! end if 27end program 28