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