11 lines
171 B
Fortran
11 lines
171 B
Fortran
|
! { dg-do "compile" }
|
||
|
! { dg-options "-c" }
|
||
|
!
|
||
|
! Do not apply the SAVE attribute to function results.
|
||
|
!
|
||
|
FUNCTION f() RESULT (g)
|
||
|
INTEGER :: g
|
||
|
SAVE
|
||
|
g = 42
|
||
|
END FUNCTION
|