blob: f0ec6ffe7988c56e9c0ed206880facfca7dfbed0 (
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
|
! { dg-do run }
! { dg-options "-fcoarray=single" }
!
! Contributed by Ian Harvey <ian_harvey@bigpond.com>
! Extended by Andre Vehreschild <vehre@gcc.gnu.org>
! to test that coarray references in allocate work now
! PR fortran/67451
program main
implicit none
type foo
integer :: bar = 99
end type
class(foo), allocatable :: foobar[:]
class(foo), allocatable :: some_local_object
allocate(foobar[*])
allocate(some_local_object, source=foobar)
if (.not. allocated(foobar)) STOP 1
if (.not. allocated(some_local_object)) STOP 2
deallocate(some_local_object)
deallocate(foobar)
end program
|