gcc/testsuite/gfortran.dg/scalar_return_1.f90

   1 ! { dg-do compile }
   2 ! tests the fix for pr25082 in which the return of an array by a
   3 ! subroutine went undremarked.
   4 !
   5 ! Contributed by Joost VandeVondele  <jv244@cam.ac.uk>
   6 !
   7 SUBROUTINE S1(*)
   8 INTEGER :: a(2)
   9 RETURN a ! { dg-error " requires a SCALAR" }
  10 END SUBROUTINE S1