summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/allocate_alloc_opt_11.f90
blob: c8c7ac633cd2ddd2cf944db14fa7b405e0d87725 (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 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