public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/36323]  New: Inside an interface, gfortran does not know about selected_real_kind
@ 2008-05-24 20:55 MyForumUsage at gmail dot com
  2008-05-24 22:50 ` [Bug fortran/36323] " burnus at gcc dot gnu dot org
  2008-05-25 21:28 ` burnus at gcc dot gnu dot org
  0 siblings, 2 replies; 3+ messages in thread
From: MyForumUsage at gmail dot com @ 2008-05-24 20:55 UTC (permalink / raw)
  To: gcc-bugs

FUNCTION AFUN (F, A) &
                RESULT (RESULT)

IMPLICIT NONE
INTEGER, PARAMETER :: REAL_12 = SELECTED_REAL_KIND(P=12)

       INTERFACE
              FUNCTION F(X) RESULT (FUNCTION_VALUE)
              REAL(REAL_12), INTENT(IN) :: X                    ! REAL_12 not
recognized
              REAL(REAL_12)             :: FUNCTION_VALUE       ! REAL_12 not
recognized
              END FUNCTION F
       END INTERFACE

       REAL(REAL_12), INTENT(IN)        :: A                    ! REAL_12 is
recognized
END FUNCTION AFUN


-- 
           Summary: Inside an interface, gfortran does not know about
                    selected_real_kind
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: MyForumUsage at gmail dot com


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36323


^ permalink raw reply	[flat|nested] 3+ messages in thread

* [Bug fortran/36323] Inside an interface, gfortran does not know about selected_real_kind
  2008-05-24 20:55 [Bug fortran/36323] New: Inside an interface, gfortran does not know about selected_real_kind MyForumUsage at gmail dot com
@ 2008-05-24 22:50 ` burnus at gcc dot gnu dot org
  2008-05-25 21:28 ` burnus at gcc dot gnu dot org
  1 sibling, 0 replies; 3+ messages in thread
From: burnus at gcc dot gnu dot org @ 2008-05-24 22:50 UTC (permalink / raw)
  To: gcc-bugs



------- Comment #1 from burnus at gcc dot gnu dot org  2008-05-24 22:49 -------
Your program is invalid

 * * *

       INTERFACE
              FUNCTION F(X) RESULT (FUNCTION_VALUE)
              REAL(REAL_12), INTENT(IN) :: X

Use either:

a)  REAL(SELECTED_REAL_KIND(P=12)), INTENT(IN) :: X

b)  IMPORT :: REAL_12
    REAL(REAL_12) ...

c)  IMPORT
    REAL(REAL_12) ...

The IMPORT statement (b and c) is part of Fortran 2003.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36323


^ permalink raw reply	[flat|nested] 3+ messages in thread

* [Bug fortran/36323] Inside an interface, gfortran does not know about selected_real_kind
  2008-05-24 20:55 [Bug fortran/36323] New: Inside an interface, gfortran does not know about selected_real_kind MyForumUsage at gmail dot com
  2008-05-24 22:50 ` [Bug fortran/36323] " burnus at gcc dot gnu dot org
@ 2008-05-25 21:28 ` burnus at gcc dot gnu dot org
  1 sibling, 0 replies; 3+ messages in thread
From: burnus at gcc dot gnu dot org @ 2008-05-25 21:28 UTC (permalink / raw)
  To: gcc-bugs



------- Comment #2 from burnus at gcc dot gnu dot org  2008-05-25 21:28 -------
Close as invalid. If you think this is an error, please reopen. If you have
further questions, send those to the gfortran mailing list.

Thanks for sending a bugreport after finding a bug. (Even though it turned out
this time to be no bug but a feature of the Fortran standard.)


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|                            |INVALID


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36323


^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~2008-05-25 21:28 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2008-05-24 20:55 [Bug fortran/36323] New: Inside an interface, gfortran does not know about selected_real_kind MyForumUsage at gmail dot com
2008-05-24 22:50 ` [Bug fortran/36323] " burnus at gcc dot gnu dot org
2008-05-25 21:28 ` burnus at gcc dot gnu dot org

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).