public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/109226] New: parameters for a type on IMPLICIT do not work. For example: IMPLICIT TYPE(REAL(KIND=REAL128)) fails
@ 2023-03-21 2:36 urbanjost at comcast dot net
2023-03-21 2:42 ` [Bug fortran/109226] " urbanjost at comcast dot net
0 siblings, 1 reply; 2+ messages in thread
From: urbanjost at comcast dot net @ 2023-03-21 2:36 UTC (permalink / raw)
To: gcc-bugs
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=109226
Bug ID: 109226
Summary: parameters for a type on IMPLICIT do not work. For
example: IMPLICIT TYPE(REAL(KIND=REAL128)) fails
Product: gcc
Version: 12.2.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: urbanjost at comcast dot net
Target Milestone: ---
This fails on the IMPLICIT statement
program testit
use, intrinsic :: iso_fortran_env, only : qp=>real128
implicit type(real(kind=qp)) (a-z) ! this should work but fails
! surprising (to me) this works, which I thought broke the syntax rules
! implicit real(kind=qp) (a-z)
type(real(kind=QP)) :: quad
print '(*(g0))', "kind(long) = ", kind(long), &
& "; expected is ", kind(quad)
end program testit
The expected output is
kind(long) = 16; expected is 16
The "Fortran Standard" implies type parameters are standard:
8.7 IMPLICIT statement
1 In a scoping unit, an IMPLICIT statement specifies a type, and possibly
type parameters, for all implicitly typed data entities whose names
begin with one of the letters specified in the statement. An IMPLICIT
NONE statement can indicate that no implicit typing rules are to apply
in a particular scoping unit, or that external and dummy procedures
need to be explicitly given the EXTERNAL attribute.
^ permalink raw reply [flat|nested] 2+ messages in thread
* [Bug fortran/109226] parameters for a type on IMPLICIT do not work. For example: IMPLICIT TYPE(REAL(KIND=REAL128)) fails
2023-03-21 2:36 [Bug fortran/109226] New: parameters for a type on IMPLICIT do not work. For example: IMPLICIT TYPE(REAL(KIND=REAL128)) fails urbanjost at comcast dot net
@ 2023-03-21 2:42 ` urbanjost at comcast dot net
0 siblings, 0 replies; 2+ messages in thread
From: urbanjost at comcast dot net @ 2023-03-21 2:42 UTC (permalink / raw)
To: gcc-bugs
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=109226
urbanjost at comcast dot net changed:
What |Removed |Added
----------------------------------------------------------------------------
Resolution|--- |DUPLICATE
Status|UNCONFIRMED |RESOLVED
--- Comment #1 from urbanjost at comcast dot net ---
browser glitch created literal duplicate. delting
*** This bug has been marked as a duplicate of bug 109223 ***
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2023-03-21 2:42 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-03-21 2:36 [Bug fortran/109226] New: parameters for a type on IMPLICIT do not work. For example: IMPLICIT TYPE(REAL(KIND=REAL128)) fails urbanjost at comcast dot net
2023-03-21 2:42 ` [Bug fortran/109226] " urbanjost at comcast dot net
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).