[Bug fortran/35770] New: implicit character(s) hides type of internal function

[Bug fortran/35770] New: implicit character(s) hides type of internal function

[dick dot hendrickson at gmail dot com]

The program gives an error message when the internal
function has an apparent character type due to the implicit
statement.  Commenting out the implicit fixes it.  This
looks similar to 34784 to me.

      program SA0021

! fails on Windows XP
! gcc version 4.4.0 20080312 (experimental) [trunk revision 133139]
!maybe also see 34784?


      implicit character (s)  ! removing this fixes the problem
      REAL RDA(10)
      RDA = 0

      RDA(J1) = S_REAL_SQRT_I(RDA(J1))

      CONTAINS

      ELEMENTAL FUNCTION S_REAL_SQRT_I(X) RESULT (R)
      REAL, INTENT(IN)  ::  X
      REAL              ::  R
        R = 0.0
      END FUNCTION S_REAL_SQRT_I     !internal procedure

      END

gfortran:gfortran sa0021.f
sa0021.f:11.16:

      RDA(J1) = S_REAL_SQRT_I(RDA(J1))
               1
Error: Can't convert CHARACTER(1) to REAL(4) at (1)


-- 
           Summary: implicit character(s) hides type of internal function
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dick dot hendrickson at gmail dot com


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

[Bug fortran/35770] implicit character(s) hides type of internal function

[burnus at gcc dot gnu dot org]

------- Comment #1 from burnus at gcc dot gnu dot org  2008-03-30 21:34 -------
Confirm. Implicit typing is too fast. It is quite similar to PR 34784.

Note: PR 34784 contains a failure which was missed.


> A procedure question.  Is this the One True Way to add additional
> comments or tests about a bug report? Or is there a better way?

In principle adding new comments to a bugreport by replying to an email is OK.
(Although one should delete unneeded quotes.) Using the webinterface is also
OK.

However, if a bug has been closed as resolved fixed, either a new PR should be
created or the bug should be REOPENED otherwise the comment can be overlooked -
as it happened for PR 34784.


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
           Keywords|                            |rejects-valid
   Last reconfirmed|0000-00-00 00:00:00         |2008-03-30 21:34:17
               date|                            |


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

[Bug fortran/35770] implicit character(s) hides type of internal function

[burnus at gcc dot gnu dot org]

------- Comment #2 from burnus at gcc dot gnu dot org  2008-03-30 21:38 -------
(In reply to comment #1)
> Note: PR 34784 contains a failure which was missed.
Actually, the test case in PR 34784, comment 8 now passes.


-- 


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

[Bug fortran/35770] implicit character(s) hides type of internal function

[domob at gcc dot gnu dot org]

-- 

domob at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |domob at gcc dot gnu dot org
                   |dot org                     |
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2008-03-30 21:34:17         |2008-09-12 11:12:38
               date|                            |


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

[Bug fortran/35770] implicit character(s) hides type of internal function

[domob at gcc dot gnu dot org]

------- Comment #3 from domob at gcc dot gnu dot org  2008-09-13 07:45 -------
Subject: Bug 35770

Author: domob
Date: Sat Sep 13 07:44:36 2008
New Revision: 140336

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=140336
Log:
2008-09-13  Daniel Kraft  <d@domob.eu>

        PR fortran/35770
        * primary.c (gfc_match_varspec): Added missing type-spec clearing
        after wrong implicit character typing.

2008-09-13  Daniel Kraft  <d@domob.eu>

        PR fortran/35770
        * gfortran.dg/implicit_13.f90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/implicit_13.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/primary.c
    trunk/gcc/testsuite/ChangeLog


-- 


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

[Bug fortran/35770] implicit character(s) hides type of internal function

[domob at gcc dot gnu dot org]

------- Comment #4 from domob at gcc dot gnu dot org  2008-09-17 11:57 -------
Subject: Bug 35770

Author: domob
Date: Wed Sep 17 11:56:09 2008
New Revision: 140413

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=140413
Log:
2008-09-13  Daniel Kraft  <d@domob.eu>

        PR fortran/35770
        * primary.c (gfc_match_varspec): Added missing type-spec clearing
        after wrong implicit character typing.

2008-09-13  Daniel Kraft  <d@domob.eu>

        PR fortran/35770
        * gfortran.dg/implicit_12.f90: New test.

Added:
    branches/gcc-4_3-branch/gcc/testsuite/gfortran.dg/implicit_12.f90
Modified:
    branches/gcc-4_3-branch/gcc/fortran/ChangeLog
    branches/gcc-4_3-branch/gcc/fortran/primary.c
    branches/gcc-4_3-branch/gcc/testsuite/ChangeLog


-- 


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

[Bug fortran/35770] implicit character(s) hides type of internal function

[domob at gcc dot gnu dot org]

------- Comment #5 from domob at gcc dot gnu dot org  2008-09-17 11:59 -------
Fixed for trunk (4.4) and 4.3.


-- 

domob at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED


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