xref: /llvm-project/flang/test/Semantics/resolve101.f90 (revision 6c1ac141d3c98af9738bc77fcb55602cbff7751f)
1*6c1ac141SIvan Zhechev! RUN: %python %S/test_errors.py %s %flang_fc1
258c3f20bSMichael Kruse
347b97d4bSpeter klausler! Ensure that spurious errors do not arise from FinishSpecificationPart
447b97d4bSpeter klausler! checking on a nested specification part.
547b97d4bSpeter klauslerreal, save :: x
647b97d4bSpeter klauslerinterface
747b97d4bSpeter klausler  subroutine subr(x)
847b97d4bSpeter klausler    real, intent(in) :: x
947b97d4bSpeter klausler    ! SAVE attribute checking should not complain at the
1047b97d4bSpeter klausler    ! end of this specification part about a dummy argument
1147b97d4bSpeter klausler    ! having the SAVE attribute.
1247b97d4bSpeter klausler  end subroutine
1347b97d4bSpeter klauslerend interface
1447b97d4bSpeter klauslerend
15