https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65677
--- Comment #8 from paul.richard.thomas at gmail dot com <paul.richard.thomas
at gmail dot com> ---
I am trying to run out. I was stung by some of the comments in the
standards survey about quality of implementation in all brands. This
came out as one of the worst for gfortran so I decided to set about
fixing it :-)
This version of PR87151 is turning out to be the hardest.
module bvec
type, public :: bvec_t
private
character(:), dimension(:), allocatable :: vc
contains
PROCEDURE, PASS :: create
PROCEDURE, PASS :: delete
end type bvec_t
contains
subroutine create(this)
class(bvec_t), intent(inout) :: this
allocate(character(2)::this%vc(3))
if (len (this%vc) .ne. 2) stop 1
if (size (this%vc) .ne. 3) stop 2
end subroutine create
subroutine delete(this)
class(bvec_t), intent(inout) :: this
if (allocated (this%vc)) then
print *, "> ", this%vc(2)
if (size (this%vc) .ne. 3) stop 4
deallocate (this%vc)
endif
end subroutine delete
end module bvec
program test
use bvec
type(bvec_t) :: a
call a%create()
call a%delete()
end program test
Paul
On Sat, 6 Oct 2018 at 13:05, tkoenig at gcc dot gnu.org
<gcc-bugzi...@gcc.gnu.org> wrote:
>
> https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65677
>
> Thomas Koenig <tkoenig at gcc dot gnu.org> changed:
>
> What |Removed |Added
> ----------------------------------------------------------------------------
> Status|NEW |RESOLVED
> Resolution|--- |FIXED
>
> --- Comment #7 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
> Also fixed.
>
> At this rate, you'll be running out of deferred character bugs
> to fix :-)
>
> --
> You are receiving this mail because:
> You are on the CC list for the bug.
> You are the assignee for the bug.
