26 lines
313 B
Fortran
26 lines
313 B
Fortran
! { dg-do run }
|
|
!
|
|
! PR 40996: [F03] ALLOCATABLE scalars
|
|
!
|
|
! Contributed by Janus Weil <janus@gcc.gnu.org>
|
|
|
|
implicit none
|
|
|
|
type :: t
|
|
integer, allocatable :: i
|
|
end type
|
|
|
|
type(t)::x
|
|
|
|
allocate(x%i)
|
|
|
|
x%i = 13
|
|
print *,x%i
|
|
if (.not. allocated(x%i)) call abort()
|
|
|
|
deallocate(x%i)
|
|
|
|
if (allocated(x%i)) call abort()
|
|
|
|
end
|