This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [Patch, fortran] PR29396 PR29606 PR30625 and PR30871 - subreference array pointers.
- From: "Paul Richard Thomas" <paul dot richard dot thomas at gmail dot com>
- To: "fortran at gcc dot gnu dot org" <fortran at gcc dot gnu dot org>
- Date: Sat, 15 Sep 2007 16:47:33 +0200
- Subject: Re: [Patch, fortran] PR29396 PR29606 PR30625 and PR30871 - subreference array pointers.
- Dkim-signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=beta; h=domainkey-signature:received:received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:references; bh=IEREKB2BP8TMdNpgHZqpbQThYuEsrzSy6Tkl2iwdGMI=; b=uPH7mKTaQJrqriBMnKpAQWo6oJfh5dEtl09/99+UkB8V5V5BewFDC77OXVb1arDtZ/SfMMjXs6yjX9GBYnqilhIS3ec/J1bUc/1eLicQfYXdBEOzcATnR+XlYUWmvuXc4H1kjj6w12XC5MrO8S0/zgx2n1qT3yR89SqJdu9WMiw=
- Domainkey-signature: a=rsa-sha1; c=nofws; d=gmail.com; s=beta; h=received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:references; b=DtuL9Eyi4wTD2T74CJDH6el3APgylcLhtvkZAU6wMW4ZqvJHGxIHMzO9RqdsC8/LHycpsi/zA4nAF9N/b/SMXzc3mhJsbqFd37qFS1f9nQa4V+mQ64xIF29TQg3CauBhVtu2eEHRx1F5LSpLONXQs+vNnWbj7QRDaUzPn3Te5AY=
- References: <339c37f20709091236r54e22e2m8aa3fd7e1443af6a@mail.gmail.com>
I am glad to report that in spite of ignoring WHERE and FORALL masks,
the above patch works quite well with them!
This is an indication of how powerful these features can be when used together:
type :: t
logical :: flag
real :: value
end type
type(t), target :: tar(3)
logical, pointer :: lptr(:)
real, pointer :: rptr(:)
tar = (/t(.true., 1.0), t(.false., 3.0), t(.false., 7.0)/)
lptr => tar%flag
rptr => tar%value
print *, "initial values ", rptr
forall (i = 1:3, lptr(i)) rptr(i) = 42.0
forall (i = 1:3, .not.lptr(i)) rptr(i) = 0.0
print *, "after FORALL ", rptr
where (.not.lptr)
rptr = 77.0
elsewhere
rptr = 99.0
endwhere
print *, "after WHERE ", rptr
end
Cheers
Paul