47b97d4bfb
Some state in name resolution is stored in the DeclarationVisitor instance and processed at the end of the specification part. This state needs to accommodate nested specification parts, namely the ones that can be nested in a subroutine or function interface body. Differential Revision: https://reviews.llvm.org/D96466
14 lines
409 B
Fortran
14 lines
409 B
Fortran
! RUN: %S/test_errors.sh %s %t %f18
|
|
! Ensure that spurious errors do not arise from FinishSpecificationPart
|
|
! checking on a nested specification part.
|
|
real, save :: x
|
|
interface
|
|
subroutine subr(x)
|
|
real, intent(in) :: x
|
|
! SAVE attribute checking should not complain at the
|
|
! end of this specification part about a dummy argument
|
|
! having the SAVE attribute.
|
|
end subroutine
|
|
end interface
|
|
end
|