llvm/flang/test/semantics/implicit07.f90

implicit none(external)
external x
call x
!ERROR: 'y' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)
call y
end
[flang] Rewrite function calls to array element references parse-tree.h, parse-tree.cc: Add FunctionReference::ConvertToArrayElementRef() to convert a function reference to an array element reference. Factor out MakeArrayElementRef() to use in ConvertToArrayElementRef() and also in converting statement functions to array element assignments. resolve-names.cc: Recognize references to functions and subroutines and add symbols for them. Detect declaration conflicts from these and check `IMPLICIT NONE(EXTERNAL)`. rewrite-parse-tree.cc: Find function references that need to be converted and rewrite them. Original-commit: flang-compiler/f18@e5a1e0aaeffe8de92b1ecb67890ffa463cd6a43a Reviewed-on: https://github.com/flang-compiler/f18/pull/65 2018-04-23 21:33:10 +02:00			`implicit none(external)`
			`external x`
			`call x`
			`!ERROR: 'y' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)`
			`call y`
			`end`