brintos

brintos / llvm-project-archived public Read only

0
0
Text · 356 B · 6e793fa Raw
13 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12subroutine s13  implicit none4  !ERROR: IMPLICIT statement after IMPLICIT NONE or IMPLICIT NONE(TYPE) statement5  implicit integer(a-z)6end subroutine7 8subroutine s29  implicit none(type)10  !ERROR: IMPLICIT statement after IMPLICIT NONE or IMPLICIT NONE(TYPE) statement11  implicit integer(a-z)12end subroutine13