19990313-1.f\execute\g77.f-torture\testsuite\gcc - delta/gcc.git - gcc.gnu.org: git/gcc.git

index : delta/gcc.git

gcc.gnu.org: git/gcc.git

summary refs log tree commit diff

path: root/gcc/testsuite/g77.f-torture/execute/19990313-1.f

blob: d99c72f2fdeec07e1166e01f8d791e40ed303f73 (plain)

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