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!
9SUBROUTINE S1(*)
10INTEGER :: a(2)
11RETURN a ! { dg-error " requires a SCALAR" }
12END SUBROUTINE S1
13