xref: /llvm-project/flang/test/Semantics/implicit07.f90 (revision 98d1d528d109efd4ed13aaceb6ac31d3f5f24413)
16c1ac141SIvan Zhechev! RUN: %python %S/test_errors.py %s %flang_fc1
264ab3302SCarolineConcattoimplicit none(external)
364ab3302SCarolineConcattoexternal x
4*98d1d528SPeter Klauslerinteger :: f, i, arr(1) = [0]
564ab3302SCarolineConcattocall x
664ab3302SCarolineConcatto!ERROR: 'y' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)
764ab3302SCarolineConcattocall y
8bf0870d8STim Keith!ERROR: 'f' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)
9bf0870d8STim Keithi = f()
1064ab3302SCarolineConcattoblock
1164ab3302SCarolineConcatto  !ERROR: 'z' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)
1264ab3302SCarolineConcatto  call z
1364ab3302SCarolineConcattoend block
14*98d1d528SPeter Klauslerprint *, arr(1) ! no error
1564ab3302SCarolineConcattoend
16