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