[NFC][RISCV] Remove CFIIndex argument from allocateStack (#117871)
[llvm-project.git] / flang / test / Semantics / implicit07.f90
blobc26b4ac3ccec4018e0d3527250bff214f28b6daa
1 ! RUN: %python %S/test_errors.py %s %flang_fc1
2 implicit none(external)
3 external x
4 integer :: f, i, arr(1) = [0]
5 call x
6 !ERROR: 'y' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)
7 call y
8 !ERROR: 'f' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)
9 i = f()
10 block
11 !ERROR: 'z' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)
12 call z
13 end block
14 print *, arr(1) ! no error
15 end