19990313-2.f « execute « g77.f-torture « testsuite « gcc - gcc.git - Linaro gcc mirror (git://gcc.gnu.org/git/gcc.git) + linaro-local branches

index : gcc.git

Linaro gcc mirror (git://gcc.gnu.org/git/gcc.git) + linaro-local branches

about summary refs log tree commit diff

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

blob: ffb7549d413ac0654c5559ee93558c55f2bf5c20 (plain)

        integer *8 foo, bar
	complex c
        data c/(4e10,0)/
        foo = 4e10
        bar = c
        if (foo .ne. bar) call abort
        end