1! RUN: %S/test_errors.sh %s %t %f18 2MODULE test 3SAVE 4CONTAINS 5PURE FUNCTION pf( ) 6 IMPLICIT NONE 7 INTEGER :: pf 8 INTEGER :: mc 9 !OK: SAVE statement is not inherited by the function 10END FUNCTION 11 12PURE FUNCTION pf2( ) 13 IMPLICIT NONE 14 SAVE 15 INTEGER :: pf2 16 !ERROR: A pure subprogram may not have a variable with the SAVE attribute 17 INTEGER :: mc 18END FUNCTION 19 20END MODULE 21 22