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