gcc/testsuite/gfortran.dg/save_result.f90

   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