OSDN Git Service

2010-06-18 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / allocate_alloc_opt_11.f90
1 ! { dg-do compile }
2 !
3 ! PR fortran/44556
4 !
5 ! Contributed by Jonathan Hogg and Steve Kargl.
6 !
7 program oh_my
8    implicit none
9    type a
10       integer, allocatable :: b(:), d(:)
11       character(len=80) :: err
12       character(len=80), allocatable :: str(:)
13       integer :: src
14    end type a
15
16    integer j
17    type(a) :: c
18    c%err = 'ok'
19    allocate(c%d(1)) 
20    allocate(c%b(2), errmsg=c%err, stat=c%d(1)) ! OK
21    deallocate(c%b, errmsg=c%err, stat=c%d(1))  ! OK
22    allocate(c%b(2), errmsg=c%err, stat=c%b(1)) ! { dg-error "the same ALLOCATE statement" }
23    deallocate(c%b, errmsg=c%err, stat=c%b(1))  ! { dg-error "the same DEALLOCATE statement" }
24    allocate(c%str(2), errmsg=c%str(1), stat=j) ! { dg-error "the same ALLOCATE statement" }
25    deallocate(c%str, errmsg=c%str(1), stat=j)  ! { dg-error "the same DEALLOCATE statement" }
26 end program oh_my