This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [PATCH] PR Fortran/83548 -- a LOGICAL fix
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: Bernhard Reutner-Fischer <rep dot dot dot nop at gmail dot com>
- Cc: fortran at gcc dot gnu dot org, gcc-patches at gcc dot gnu dot org
- Date: Mon, 25 Dec 2017 15:20:55 -0800
- Subject: Re: [PATCH] PR Fortran/83548 -- a LOGICAL fix
- Authentication-results: sourceware.org; auth=none
- References: <20171225194540.GA89519@troutmask.apl.washington.edu> <40451563-A196-435D-8B78-55D79EEF9495@gmail.com>
- Reply-to: sgk at troutmask dot apl dot washington dot edu
On Mon, Dec 25, 2017 at 11:12:49PM +0100, Bernhard Reutner-Fischer wrote:
> On 25 December 2017 20:45:40 CET, Steve Kargl <sgk@troutmask.apl.washington.edu> wrote:
> >The attach patch fixes a problem when a LOGICAL subprogram
> >appears as the first element in an array constructor, which
> >is interpreted as a LOGICAL type-spec, which fails because
> >the argument is of type LOGICAL instead of INTEGER.
> >
> >Regression tested on i686-*-freebsd and x86_64-*-freebsd.
> >
> >OK to commit?
>
> + p = [real(kind=4) :: x, y]
> + q = [real(kind=8) :: x, y]
> + if (any(p .ne. r2)) call abort
> + if (any(q .ne. r3)) call aborts
> +end program foo
>
> aborts? abort?
>
Whoops. Thanks for noticing. The test is compile-only,
so I missed the typo during testing.
--
Steve