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