?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / g77.f-torture / execute / 19990313-1.f
blobd99c72f2fdeec07e1166e01f8d791e40ed303f73
1 integer *8 foo, bar
2 double precision r
3 data r/4d10/
4 foo = 4d10
5 bar = r
6 if (foo .ne. bar) call abort
7 end
Mirror of the offical gcc git repository hosted at gcc.gnu.org