1! { dg-do compile } 2! { dg-options "-std=legacy" } 3! 4! Test cases where no blank is required after RETURN 5subroutine sub(*) 6return(1) 7return1 ! { dg-error "" } 8end subroutine 9