| ! RUN: %S/test_errors.sh %s %t %f18 | |
| MODULE test | |
| SAVE | |
| CONTAINS | |
| PURE FUNCTION pf( ) | |
| IMPLICIT NONE | |
| INTEGER :: pf | |
| INTEGER :: mc | |
| !OK: SAVE statement is not inherited by the function | |
| END FUNCTION | |
| PURE FUNCTION pf2( ) | |
| IMPLICIT NONE | |
| SAVE | |
| INTEGER :: pf2 | |
| !ERROR: A pure subprogram may not have a variable with the SAVE attribute | |
| INTEGER :: mc | |
| END FUNCTION | |
| END MODULE | |