| ! { dg-do compile } | |
| ! { dg-options "-w" } | |
| ! PR fortran/103608 - ICE in do_intent | |
| ! Contributed by G.Steinmetz | |
| program p | |
| implicit none | |
| integer :: i | |
| integer :: x ! { dg-error "Alternate return specifier" } | |
| x(*) = 0 | |
| do i = 1, 2 | |
| print *, x(i) ! { dg-error "Missing alternate return specifier" } | |
| end do | |
| end |