c32d5458b5
The compiler emits a bogus 'No explicit type declared for...' error when a dummy procedure turns out to be a subroutine (or at least not a function or object) under control of IMPLICIT NONE. Fixes https://github.com/llvm/llvm-project/issues/60224 Differential Revision: https://reviews.llvm.org/D150814
10 lines
246 B
Fortran
10 lines
246 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
!ERROR: No explicit type declared for 'func'
|
|
!ERROR: No explicit type declared for 'obj'
|
|
subroutine implicit_none(func, sub, obj)
|
|
implicit none
|
|
call sub ! ok
|
|
print *, func()
|
|
print *, obj
|
|
end
|