1! RUN: %python %S/test_errors.py %s %flang_fc1
2implicit none(external)
3external x
4integer :: f, i
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
14end
15