[AArch64] PR target/65491: Classify V1TF vectors as AAPCS64 short vectors rather...
[official-gcc.git] / gcc / testsuite / gfortran.dg / subnormal_1.f90
blob4fbde58078b9cf4bf56d4016150ab836684e0fcc
1 ! { dg-do run }
2 ! { dg-options "-Wno-underflow" }
3 ! Check that the chopping of bits of subnormal numbers works.
5 program chop
6 real x
7 x = 1.
8 if (tiny(x)/2. /= tiny(x)/2. - (nearest(tiny(x),1.) - tiny(x))/2.) then
9 call abort
10 end if
11 end program chop