flang/test/Semantics/implicit17.f90

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