blob: a388c3c714f08d04cb1d4dd9e582e2019c374bcd [file] [log] [blame]
! { dg-do compile }
! { dg-options -Os }
! PR 78865 - this used to ICE.
program p
call sub (3)
end
subroutine sub (x)
integer :: x, i, n
do i = 1, x
if ( n /= 0 ) stop
call sub2
end do
print *, x, n
end
subroutine sub2
call sub (*99) ! { dg-error "Unexpected alternate return specifier" }
call sub (99.) ! { dg-error "Type mismatch in argument" }
99 stop
end