16 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12implicit none(external)3external x4integer :: f, i, arr(1) = [0]5call x6!ERROR: 'y' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)7call y8!ERROR: 'f' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)9i = f()10block11 !ERROR: 'z' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)12 call z13end block14print *, arr(1) ! no error15end16