flang/test/Semantics/implicit02.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 subroutine s1
   3   implicit none
   4   !ERROR: IMPLICIT statement after IMPLICIT NONE or IMPLICIT NONE(TYPE) statement
   5   implicit integer(a-z)
   6 end subroutine
   7
   8 subroutine s2
   9   implicit none(type)
  10   !ERROR: IMPLICIT statement after IMPLICIT NONE or IMPLICIT NONE(TYPE) statement
  11   implicit integer(a-z)
  12 end subroutine