gcc/testsuite/algol68/execute/re-im-1.a68


1
2
3
4
5
6
7
8

# { dg-options "-fstropping=upper" }  #
BEGIN COMPL z = 4.0I5.0;
      ASSERT (RE z = 4.0 AND IM z = 5.0);
      LONG COMPL zz = LONG 4.0 I LONG 6.0;
      ASSERT (RE zz = LONG 4.0 AND IM zz = LONG 6.0);
      LONG LONG COMPL zzz = LONG LONG 4.0 I LONG LONG 7.0;
      ASSERT (RE zzz = LONG LONG 4.0 AND IM zzz = LONG LONG 7.0)
END