flang/test/Semantics/implicit01.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 subroutine s1
   3   implicit none
   4   !ERROR: More than one IMPLICIT NONE statement
   5   implicit none(type)
   6 end subroutine
   7
   8 subroutine s2
   9   implicit none(external)
  10   !ERROR: More than one IMPLICIT NONE statement
  11   implicit none
  12 end subroutine