------- Additional Comments From Thomas dot Koenig at online dot de 2004-12-04
10:37 -------
This does indeed appear to be the problem
with quite a few failing NIST tests. Here's
a reduced testcase from NIST 111. The test case
in question has the comment
C***** - USE AS A FORMAT AN INTEGER VARIABLE WHOSE VALUE 10.3 02280111
C***** IS ASSIGNED USING AN ASSIGNMENT STATEMENT. 12.4(2) 02290111
so I guess this must be legal. It also works with g77.
$ cat assign.f
program main
assign 9000 to i
print i,3.14
9000 format ('real value = ', g12.5)
end
$ g77 assign.f && ./a.out
real value = 3.1400
$ gfortran assign.f
In file assign.f:2
assign 9000 to i
1
Warning: Obsolete: ASSIGN statement at (1)
assign.f: In function 'MAIN__':
assign.f:2: internal compiler error: in gfc_add_modify_expr, at
fortran/trans.c:154
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
Same error for print instead of write.
--
What |Removed |Added
----------------------------------------------------------------------------
Summary|ICE with integer variable |[g77 regression] ICE with
|"format" |assigned integer variable
| |format
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18481
