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