------- Comment #1 from burnus at gcc dot gnu dot org  2007-02-20 16:50 -------
Reduced test case:

 INTEGER, PARAMETER, DIMENSION(2,3) :: bo= &
                    RESHAPE((/-1,1,-1,1,-1,1/),(/2,3/))
 REAL(kind=8), DIMENSION(  &
          bo(1,1):bo(2,1), &
          bo(1,2):bo(2,2), &
          bo(1,3):bo(2,3)) :: out_val
 out_val=0.0
END

gfortran fails with:
bar.f90:6: error: size of variable 'out_val' is too large

Observation: If one replaces the bo(...):bo(...) by "-1:1" gfortran compiles
without errors.

The test case compiles & runs with nagf95, ifort, g95.


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |burnus at gcc dot gnu dot
                   |                            |org
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
           Keywords|                            |rejects-valid
   Last reconfirmed|0000-00-00 00:00:00         |2007-02-20 16:50:46
               date|                            |
            Summary|incorrect error message for |Bogus "size of variable is
                   |valid code                  |too large"


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

Reply via email to