forked from OSchip/llvm-project
22 lines
387 B
Fortran
22 lines
387 B
Fortran
|
! 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
|
||
|
|
|