This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: LOGICAL intrinsic seems to be broken
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: fortran at gcc dot gnu dot org
- Date: Sun, 12 Nov 2017 10:55:13 -0800
- Subject: Re: LOGICAL intrinsic seems to be broken
- Authentication-results: sourceware.org; auth=none
- References: <20171112184826.GA41800@troutmask.apl.washington.edu>
- Reply-to: sgk at troutmask dot apl dot washington dot edu
On Sun, Nov 12, 2017 at 10:48:26AM -0800, Steve Kargl wrote:
> I believe the error message generated by gfortran is
> incorrect for this code.
>
> do i = 1, k
> write(*,*) logical(.true., j(i)), logical_kinds(i)
> end do
Argh. Miss read the F2008 standard. kind argument
must be an integer constant expression. Although the
array j is declared as a named constant, j(i) is not
a constant expression.
More coffee is clearly needed.
--
Steve
20170425 https://www.youtube.com/watch?v=VWUpyCsUKR4
20161221 https://www.youtube.com/watch?v=IbCHE-hONow