flang/test/Semantics/implicit03.f90

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