llvm-gcc-4.2/gcc/testsuite/gfortran.dg/scalar_return_1.f90 - llvm-archive - Git at Google

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