gcc/testsuite/gfortran.dg/scalar_return_1.f90

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