blob: 0c9964f4895b0bfcd449598d8f9f5cd48133c2be [file] [log] [blame]
! RUN: %S/ %s %t %flang_fc1
! Ensure that spurious errors do not arise from FinishSpecificationPart
! checking on a nested specification part.
real, save :: x
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