! { dg-do run } | |
! | |
! Contributed by Lionel Guez <guez@lmd.ens.fr> | |
! | |
character(len = :), allocatable:: attr_name(:) | |
character(6) :: buffer | |
type coord_def | |
character(len = :), allocatable:: attr_name(:) | |
end type coord_def | |
type(coord_def) coordinates | |
attr_name = ["units"] | |
write (buffer, *) attr_name | |
if (buffer .ne. " units") stop 1 | |
coordinates = coord_def(attr_name) | |
write (buffer, *) coordinates%attr_name | |
if (buffer .ne. " units") stop 2 | |
deallocate (attr_name) | |
deallocate (coordinates%attr_name) | |
end |