2004-07-17 Jeroen Frijters <jeroen@frijters.net>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / g77.f-torture / execute / 19990313-1.f

        integer *8 foo, bar
        double precision r
        data r/4d10/
        foo = 4d10
        bar = r
        if (foo .ne. bar) call abort
        end