------- 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
