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 compile }
!
! PR fortran/44556
!
! Contributed by Jonathan Hogg and Steve Kargl.
!
program oh_my
implicit none
type a
integer, allocatable :: b(:), d(:)
character(len=80) :: err
character(len=80), allocatable :: str(:)
integer :: src
end type a
integer j
type(a) :: c
c%err = 'ok'
allocate(c%d(1))
allocate(c%b(2), errmsg=c%err, stat=c%d(1)) ! OK
deallocate(c%b, errmsg=c%err, stat=c%d(1)) ! OK
allocate(c%b(2), errmsg=c%err, stat=c%b(1)) ! { dg-error "the same ALLOCATE statement" }
deallocate(c%b, errmsg=c%err, stat=c%b(1)) ! { dg-error "the same DEALLOCATE statement" }
allocate(c%str(2), errmsg=c%str(1), stat=j) ! { dg-error "the same ALLOCATE statement" }
deallocate(c%str, errmsg=c%str(1), stat=j) ! { dg-error "the same DEALLOCATE statement" }
end program oh_my
|
