forked from OSchip/llvm-project
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
|