1! { dg-do compile }
2! { dg-options "-c" }
3!
4! Do not apply the SAVE attribute to function results.
5!
6FUNCTION f() RESULT (g)
7  INTEGER :: g
8  SAVE
9  g = 42
10END FUNCTION
11