| ! { 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 |