|
! { dg-do compile }
|
|
! PR20856 - A function result may not have SAVE attribute.
|
|
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
|
|
FUNCTION X() RESULT(Y)
|
|
REAL, SAVE :: Y ! { dg-error "RESULT attribute conflicts with SAVE" }
|
|
y = 1
|
|
END FUNCTION X
|
|
END
|