blob: 922af4aecc3d52e7d6ac5a46fca236a78066d10e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
! { dg-do run }
! { dg-options "-fcheck=pointer" }
! { dg-shouldfail "Argument not allocated" }
! { dg-output "Fortran runtime error: Allocatable actual argument 'c_init2' is not allocated" }
!
! Tests fix for PR100136
!
! Test cut down from PR58586
!
module test_pr58586_mod
implicit none
type :: a
end type
type :: c
type(a), allocatable :: a
end type
contains
subroutine add_class_c (d)
class(c), value :: d
end subroutine
class(c) function c_init2()
allocatable :: c_init2
end function
end module test_pr58586_mod
program test_pr58586
use test_pr58586_mod
! This needs to execute, to see whether the segfault at runtime is resolved
call add_class_c(c_init2())
end program
|
