[Bug fortran/25951] New: Problem with LOC intrinsic for assumed size arrays

[Bug fortran/25951] New: Problem with LOC intrinsic for assumed size arrays

[mhesseli at caltech dot edu]

Compiling the following code results in a compile error:

PROGRAM loc_1
CONTAINS
   SUBROUTINE f (x)
      INTEGER, DIMENSION(*)   :: x
      INTEGER                 :: address
      address=LOC(x)
   END SUBROUTINE f
END PROGRAM loc_1

The error produced by gfortran is:

[aardschokker:fms/trunk/obj] mark% /usr/local/bin/gfortran -c loc_1.f90
 In file loc_1.f90:6

      address=LOC(x)
                 1
Error: The upper bound in the last dimension must appear in the reference to
the assumed size array 'x' at (1)

This code has been compiled with

[aardschokker:fms/trunk/obj] mark% /usr/local/bin/gfortran -v
Using built-in specs.
Target: powerpc-apple-darwin7.9.0
Configured with: /storage/usr/src/gcc/configure --prefix=/usr/local
--disable-libmudflap --enable-altivec --enable-languages=c,fortran
--with-gmp=/sw --with-mpfr=/sw
Thread model: posix
gcc version 4.2.0 20060121 (experimental)


-- 
           Summary: Problem with LOC intrinsic for assumed size arrays
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: mhesseli at caltech dot edu
 GCC build triplet: powerpc-apple-darwin7.9.0
  GCC host triplet: powerpc-apple-darwin7.9.0
GCC target triplet: powerpc-apple-darwin7.9.0


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

[Bug fortran/25951] [4.1/4.2 Regression] Problem with LOC intrinsic for assumed size arrays

[pinskia at gcc dot gnu dot org]

------- Comment #1 from pinskia at gcc dot gnu dot org  2006-01-24 23:34 -------
Confirmed.


-- 

pinskia at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |pinskia at gcc dot gnu dot
                   |                            |org
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
  GCC build triplet|powerpc-apple-darwin7.9.0   |
   GCC host triplet|powerpc-apple-darwin7.9.0   |
 GCC target triplet|powerpc-apple-darwin7.9.0   |
           Keywords|                            |rejects-valid
   Last reconfirmed|0000-00-00 00:00:00         |2006-01-24 23:34:56
               date|                            |
            Summary|Problem with LOC intrinsic  |[4.1/4.2 Regression] Problem
                   |for assumed size arrays     |with LOC intrinsic for
                   |                            |assumed size arrays
   Target Milestone|---                         |4.1.0


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

[Bug fortran/25951] [4.1/4.2 Regression] Problem with LOC intrinsic for assumed size arrays

[mmitchel at gcc dot gnu dot org]

------- Comment #2 from mmitchel at gcc dot gnu dot org  2006-01-25 06:46 -------
Fortran is not release-critical.


-- 

mmitchel at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P5


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

[Bug fortran/25951] [4.1/4.2 Regression] Problem with LOC intrinsic for assumed size arrays

[pault at gcc dot gnu dot org]

------- Comment #3 from pault at gcc dot gnu dot org  2006-01-29 16:21 -------
Fixed on 4.2 and 4.1

Note the typo in the ChangeLog

2005-01-27  Paul Thomas  <pault@gcc.gnu.org>

        PR fortran/25964  !!!!!!!!!!
        * resolve.c (resolve_function): Add GFC_ISYM_LOC to the list of
        generic_ids exempted from assumed size checking.

As soon as I have a moment, I will correct this and a couple of other
mis-identifications.

Paul


-- 

pault at gcc dot gnu dot org changed:

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


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