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