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