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