gcc/testsuite/gfortran.dg/pr60144.f90

   1 ! { dg-do compile }
   2 !
   3 ! fortran PR/60144
   4 ! Contributed by Sergio Losilla
   5 !
   6 program 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
  27 end program