[Bug fortran/39489] New: Error in module with gfortran 4.3 in 32 bit processors.

[Bug fortran/39489] New: Error in module with gfortran 4.3 in 32 bit processors.

[n dot pinhao at netvisao dot pt]

The compilation with gfortran 4.3 on i486 processors seems to produces a module
with an error. Further include of that module produces an overflow message and
aborts the compilation.
The same module compiles without problems with gfortran 4.3.2 on x86_64
processors.
I'm not sure what further information I should submit...


-- 
           Summary: Error in module with gfortran 4.3 in 32 bit processors.
           Product: gcc
           Version: 4.3.2
            Status: UNCONFIRMED
          Severity: blocker
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: n dot pinhao at netvisao dot pt
 GCC build triplet: Linux, i486
  GCC host triplet: Linux, i486
GCC target triplet: Linux, i486


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

[Bug fortran/39489] Error in module with gfortran 4.3 in 32 bit processors.

[dominiq at lps dot ens dot fr]

------- Comment #1 from dominiq at lps dot ens dot fr  2009-03-18 09:46 -------
> I'm not sure what further information I should submit...

Submit a reduced test case showing the problem.


-- 


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

[Bug fortran/39489] Error in module with gfortran 4.3 in 32 bit processors.

[dfranke at gcc dot gnu dot org]

------- Comment #2 from dfranke at gcc dot gnu dot org  2009-03-18 10:01 -------
It's hard to tell without a code example, really ...


-- 

dfranke at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |dfranke at gcc dot gnu dot
                   |                            |org
           Severity|blocker                     |normal
             Status|UNCONFIRMED                 |WAITING
  GCC build triplet|Linux, i486                 |
   GCC host triplet|Linux, i486                 |
 GCC target triplet|Linux, i486                 |


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

[Bug fortran/39489] Error in module with gfortran 4.3 in 32 bit processors.

[n dot pinhao at netvisao dot pt]

------- Comment #3 from n dot pinhao at netvisao dot pt  2009-03-18 15:06 -------
Created an attachment (id=17488)
 --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=17488&action=view)
Streamlined module files reproducing the error

See the README for compilation instructions


-- 


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

[Bug fortran/39489] Error in module with gfortran 4.3 in 32 bit processors.

[n dot pinhao at netvisao dot pt]

------- Comment #4 from n dot pinhao at netvisao dot pt  2009-03-18 15:08 -------
The code was tested only with gfortran 4.3.2


-- 


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

[Bug fortran/39489] Error in module with gfortran 4.3 in 32 bit processors.

[dominiq at lps dot ens dot fr]

------- Comment #5 from dominiq at lps dot ens dot fr  2009-03-18 15:44 -------
On powerpc-apple-darwin9 with gfortran 4.3.3 (with or without -m64) I get:

[karma] Downloads/gftest% gfortran -c MpkBase.f95
MpkBase.f95:831.17:

END MODULE pkBase
                 1
Internal Error at (1):
gfc_code2string(): Bad code

MpkBase.f95 compiles with gfortran from trunk. However I got many errors with
MpkData.f95:

MpkData.f95:598.70:

        IF( p_energy%value == 0 ) p_energy%value = Species(j)%p_energy
                                                                      1
Error: 'p_energy' at (1) is not a member of the 'particle' structure
MpkData.f95:680.60:

        initial_conc%value, mpolar, data_file, gains, losses )
                                                            1
Error: Too many components in structure constructor at (1)!
...
MpkData.f95:93.30:

    call pkReadData( UI, FMT, IOError(3) )
                              1
Warning: Actual argument contains too few elements for dummy argument 'iostat'
(1/3) at (1)
MpkData.f95:95.32:

    call pkReadData( UI, iostat=IOError(3) )
                                1
Warning: Actual argument contains too few elements for dummy argument 'iostat'
(1/3) at (1)

Too many errors to have chance to fix them right now.


-- 


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

[Bug fortran/39489] [4.3 Regression] write_atom(): Writing negative integer

[dfranke at gcc dot gnu dot org]

------- Comment #6 from dfranke at gcc dot gnu dot org  2009-03-18 16:35 -------
With 4.3.4 (20090318) I get:

$> gfortran-4.3 -o test MpkCommon.f95 MpkBase.f95 MpkData.f95 teste.f95
MpkBase.f95:831.17:

END MODULE pkBase
                 1
Internal Error at (1):
write_atom(): Writing negative integer
Fatal Error: Reading module pkbase at line 358 column 47: Expected integer
Fatal Error: Reading module pkbase at line 358 column 47: Expected integer


but 4.2 (20090203) and 4.4 (20090317, to be released soonish) give:
$> gfortran-svn -o test MpkCommon.f95 MpkBase.f95 MpkData.f95 teste.f95
MpkData.f95:598.70:

        IF( p_energy%value == 0 ) p_energy%value = Species(j)%p_energy
                                                                      1
Error: 'p_energy' at (1) is not a member of the 'particle' structure
MpkData.f95:680.60:

        initial_conc%value, mpolar, data_file, gains, losses )
                                                            1
Error: Too many components in structure constructor at (1)!
MpkData.f95:735.34:

      ELSE IF (Species(i)%constant) THEN
                                  1
Error: 'constant' at (1) is not a member of the 'particle' structure
MpkData.f95:739.33:

      ELSE IF( Species(i)%cascade ) THEN
                                 1
Error: 'cascade' at (1) is not a member of the 'particle' structure
MpkData.f95:774.29:

      IF (Species(i)%constant) THEN
                             1
Error: 'constant' at (1) is not a member of the 'particle' structure
MpkData.f95:777.36:

        Species(i)%name /= 'e') THEN
                                    1
Error: Unexpected ELSE IF statement at (1)
MpkData.f95:783.43:

      ELSE IF( Species(i)%name == 'e') THEN
                                           1
Error: Unexpected ELSE IF statement at (1)
MpkData.f95:785.58:

      ELSE IF( INDEX(Species(i)%name, 'photon') /= 0) THEN
                                                          1
Error: Unexpected ELSE IF statement at (1)
MpkData.f95:787.33:

      ELSE IF( Species(i)%cascade) THEN
                                 1
Error: 'cascade' at (1) is not a member of the 'particle' structure
MpkData.f95:790.65:

        ( Species(i)%v == -1 .and. Species(i)%energy > 0 ) ) THEN
                                                                 1
Error: Unexpected ELSE IF statement at (1)
MpkData.f95:792.47:

      ELSE          ! .not. Species(i)%constant
                                               1
Error: Unexpected ELSE statement at (1)
MpkData.f95:794.9:

      END IF
         1
Error: Expecting END DO statement at (1)
MpkData.f95:2061.55:

              mask=Kreac(i)%Nreactants(:)>0) )%p_energy ) &
                                                       1
Error: 'p_energy' at (1) is not a member of the 'particle' structure
MpkData.f95:2091.54:

              mask=Kreac(i)%Nproducts(:)>0) )%p_energy ) + &
                                                      1
Error: 'p_energy' at (1) is not a member of the 'particle' structure
MpkData.f95:2112.51:

            mask=Kreac(i)%Nproducts(:)>0))%p_energy ) + &
                                                   1
Error: 'p_energy' at (1) is not a member of the 'particle' structure
MpkData.f95:2394.75:

          Index = i; name = Species(i)%name; constant = Species(i)%constant
                                                                           1
Error: 'constant' at (1) is not a member of the 'particle' structure
MpkData.f95:2395.38:

          cascade = Species(i)%cascade; charge = Species(i)%charge
                                      1
Error: 'cascade' at (1) is not a member of the 'particle' structure
MpkData.f95:2397.40:

          p_energy = Species(i)%p_energy; energy = Species(i)%energy
                                        1
Error: 'p_energy' at (1) is not a member of the 'particle' structure
MpkData.f95:93.30:

    call pkReadData( UI, FMT, IOError(3) )
                              1
Warning: Actual argument contains too few elements for dummy argument 'iostat'
(1/3) at (1)
MpkData.f95:95.32:

    call pkReadData( UI, iostat=IOError(3) )
                                1
Warning: Actual argument contains too few elements for dummy argument 'iostat'
(1/3) at (1)


As the error does not occur in trunk, I believe it is unlikely that it will be
fixed in the branch.


-- 

dfranke at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|WAITING                     |NEW
     Ever Confirmed|0                           |1
      Known to fail|                            |4.3.4
      Known to work|                            |4.2.5 4.4.0
   Last reconfirmed|0000-00-00 00:00:00         |2009-03-18 16:35:20
               date|                            |
            Summary|Error in module with        |[4.3 Regression]
                   |gfortran 4.3 in 32 bit      |write_atom(): Writing
                   |processors.                 |negative integer


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

[Bug fortran/39489] [4.3 Regression] write_atom(): Writing negative integer

[n dot pinhao at netvisao dot pt]

------- Comment #7 from n dot pinhao at netvisao dot pt  2009-03-18 17:44 -------
Created an attachment (id=17489)
 --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=17489&action=view)
Streamlined module files reproducing the error (2)

Test files with a corrected version of MpkData.f95.
With gfortran 4.3.2 in i486 both MpkCommon.f95 and MpkBase.f95 files compile
without errors but the instruction "gfortran -c MpkData.f95" produces the
following error message:
Fatal Error: Reading module pkbase at line 22 column 20: Integer overflow


-- 

n dot pinhao at netvisao dot pt changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
  Attachment #17488|0                           |1
        is obsolete|                            |


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

[Bug fortran/39489] [4.3 Regression] write_atom(): Writing negative integer

[n dot pinhao at netvisao dot pt]

------- Comment #8 from n dot pinhao at netvisao dot pt  2009-03-18 17:48 -------
The code compiles with gfortran 4.2 without problems.


-- 

n dot pinhao at netvisao dot pt changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |n dot pinhao at netvisao dot
                   |                            |pt


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

[Bug fortran/39489] [4.3 Regression] write_atom(): Writing negative integer

[n dot pinhao at netvisao dot pt]

------- Comment #9 from n dot pinhao at netvisao dot pt  2009-03-19 08:24 -------
Created an attachment (id=17492)
 --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=17492&action=view)
Streamlined module files reproducing the error (2)

A file was missing on this test.


-- 


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

[Bug fortran/39489] [4.3 regression] write_atom(): Writing negative integer

[jsm28 at gcc dot gnu dot org]

-- 

jsm28 at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
            Summary|[4.3 only, regression]      |[4.3 regression]
                   |write_atom(): Writing       |write_atom(): Writing
                   |negative integer            |negative integer
   Target Milestone|---                         |4.3.4


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

[Bug fortran/39489] [4.3 regression] write_atom(): Writing negative integer

[rguenth at gcc dot gnu dot org]

------- Comment #10 from rguenth at gcc dot gnu dot org  2009-04-22 13:26 -------
Fortran.  P4.


-- 

rguenth at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4


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

[Bug fortran/39489] [4.3 regression] write_atom(): Writing negative integer

[burnus at gcc dot gnu dot org]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1078 bytes --]



------- Comment #11 from burnus at gcc dot gnu dot org  2009-04-28 11:46 -------
I cannot reproduce this with 4.3.4 20090428 [gcc-4_3-branch revision 138185],
however, valgrind shows

Conditional jump or move depends on uninitialised value(s)
  at 0x446764: (within
/gcc-4.3/libexec/gcc/x86_64-unknown-linux-gnu/4.3.4/f951)
  by 0x4486FD: (within
/gcc-4.3/libexec/gcc/x86_64-unknown-linux-gnu/4.3.4/f951)

for MpkBase.f95 and MpkData.f95 and no such warning for MpkCommon.f95. In order
to pinpoint that problem, I need to build 4.3 with -g ...

 * * *

Nuno Pinhão, you could consider updating to 4.4.0 instead which does not have
this problem and was recently released. (The 4.5 developer branch also works
fine.)


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |burnus at gcc dot gnu dot
                   |                            |org


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

[Bug fortran/39489] [4.3 regression] write_atom(): Writing negative integer

[burnus at gcc dot gnu dot org]

------- Comment #12 from burnus at gcc dot gnu dot org  2009-05-12 22:05 -------
Some more data:

==16952== Conditional jump or move depends on uninitialised value(s)
==16952==    at 0x4470FC: write_atom (module.c:1339)
==16952==    by 0x4472DD: mio_integer (module.c:1450)
==16952==    by 0x447DAC: mio_typespec (module.c:1870)
==16952==    by 0x449710: mio_symbol (module.c:3048)

That are lines such as:
  mio_integer (&ts->is_c_interop);


-- 


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

[Bug fortran/39489] [4.3 regression] write_atom(): Writing negative integer

[fxcoudert at gcc dot gnu dot org]

------- Comment #13 from fxcoudert at gcc dot gnu dot org  2009-07-05 09:07 -------
Works with newer branches (4.4 and 4.5). According to gfortran maintainers
meeting, will not be fixed.


-- 

fxcoudert at gcc dot gnu dot org changed:

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


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