c: Fix up pointer types to may_alias structures [PR114493]
[official-gcc.git] / gcc / testsuite / gfortran.dg / save_result.f90
blobde70cc38f4cd727f051630d6fbe31c27a8bf397a
1 ! { dg-do compile }
2 ! PR20856 - A function result may not have SAVE attribute.
3 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
4 FUNCTION X() RESULT(Y)
5 REAL, SAVE :: Y ! { dg-error "RESULT attribute conflicts with SAVE" }
6 y = 1
7 END FUNCTION X
8 END