[PATCH] PR Fortran/83548 -- a LOGICAL fix

[Steve Kargl]

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