| ! 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 |