flang/test/Semantics/implicit07.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 implicit none(external)
   3 external x
   4 integer :: f, i
   5 call x
   6 !ERROR: 'y' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)
   7 call y
   8 !ERROR: 'f' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)
   9 i = f()
  10 block
  11   !ERROR: 'z' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)
  12   call z
  13 end block
  14 end