flang/test/Semantics/implicit02.f90

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