blob: 3faa550cce8b1ca8bd0f7d8268271a70aee2a32b (
plain)
1
2
3
4
5
6
7
8
9
10
|
C Test compiler flags: -fno-typeless-boz
C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
C
C { dg-do run }
C { dg-options "-fno-typeless-boz" }
equivalence (i,r)
r = Z'ABCD1234'
j = Z'ABCD1234'
if ( j .eq. i ) call abort
end
|