blob: 1ad1ae844adc6393e71980bdd113bf4e3e689cde (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { dg-do compile }
!
! PR 54189: ICE (segfault) with invalid assumed-size dummy
!
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
implicit none
procedure(g), pointer :: x ! { dg-error "must be a dummy argument" }
x => g
contains
function g() ! { dg-error "must be a dummy argument" }
integer :: g(*)
end function
end
|