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