34 lines
705 B
Fortran
34 lines
705 B
Fortran
! { dg-do run }
|
|
program a
|
|
|
|
implicit none
|
|
|
|
integer n
|
|
character(len=70) e1
|
|
character(len=30) e2
|
|
integer, allocatable :: i(:)
|
|
|
|
e1 = 'No error'
|
|
allocate(i(4), stat=n, errmsg=e1)
|
|
if (trim(e1) /= 'No error') call abort
|
|
deallocate(i)
|
|
|
|
e2 = 'No error'
|
|
allocate(i(4),stat=n, errmsg=e2)
|
|
if (trim(e2) /= 'No error') call abort
|
|
deallocate(i)
|
|
|
|
|
|
e1 = 'No error'
|
|
allocate(i(4), stat=n, errmsg=e1)
|
|
allocate(i(4), stat=n, errmsg=e1)
|
|
if (trim(e1) /= 'Attempt to allocate an allocated object') call abort
|
|
deallocate(i)
|
|
|
|
e2 = 'No error'
|
|
allocate(i(4), stat=n, errmsg=e2)
|
|
allocate(i(4), stat=n, errmsg=e2)
|
|
if (trim(e2) /= 'Attempt to allocate an allocat') call abort
|
|
|
|
end program a
|