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