15 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -fimplicit-none-ext2external x3integer :: f, i, arr(1) = [0]4call x5!ERROR: 'y' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)6call y7!ERROR: 'f' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)8i = f()9block10 !ERROR: 'z' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)11 call z12end block13print *, arr(1) ! no error14end15