[Bug fortran/65825] New: Cannot change attributes intrinsic

[Bug fortran/65825] New: Cannot change attributes intrinsic

[roger.ferrer at bsc dot es]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65825

            Bug ID: 65825
           Summary: Cannot change attributes intrinsic
           Product: gcc
           Version: 4.9.2
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: roger.ferrer at bsc dot es

Hi,

a problem similar to PR57141 happens with the code below.

Fails both with gfortran 4.9.2 and 5.0.1 20150412 (prerelease).

Both Intel Fortran 14.0.2 and XL Fortran 15.01 accept this code (both print 3
of course).

-- t.f90
MODULE moo
    IMPLICIT NONE
    INTEGER(4), PUBLIC :: c(3, 3)
    !! uncomment the following statement
    !! as a workaround
    ! PRIVATE :: ubound
    DATA c(3, 1:ubound(c, 2)) / 1, 2, 3 /
END MODULE moo

PROGRAM main
    USE moo
    IMPLICIT NONE
    INTEGER(4) :: x
    INTRINSIC :: ubound ! gfortran rejects this

    x = ubound(c, 2)
    ! should print 3
    PRINT *, x
END PROGRAM main
-- end of t.f90

Leaving the upper bound of the subscript-triplet can be used as a workaround.
Another workaround involves explicitly stating that ubound name is private.

I assume that the code is OK since in both cases ubound does not change its
"intrinsic" meaning.

Kind regards,

[Bug fortran/65825] Cannot change attributes intrinsic

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65825

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2015-04-21
     Ever confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Confirmed from 4.4 up to trunk (6.0). Moving the line

    INTRINSIC :: ubound ! gfortran rejects this

in MODULE moo works around the problem also.

> I assume that the code is OK since in both cases ubound does not change
> its "intrinsic" meaning.

Well, if so, why are you do you want to declare ubound as intrinsic besides
pushing gfortran to its limit?

[Bug fortran/65825] Cannot change attributes intrinsic

[roger.ferrer at bsc dot es]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65825

--- Comment #2 from Roger Ferrer Ibanez <roger.ferrer at bsc dot es> ---
> Well, if so, why are you do you want to declare ubound as intrinsic besides
> pushing gfortran to its limit?

I did not intend to push gfortran anywhere. It actually happened by chance.

Kind regards,