| ! { dg-do compile } | |
| ! { dg-options "-std=legacy" } | |
| ! | |
| ! 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 |