Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/dec-comparison-real_1.f90 @ 145:1830386684a0
gcc-9.2.0
| author | anatofuz |
|---|---|
| date | Thu, 13 Feb 2020 11:34:05 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 131:84e7813d76e9 | 145:1830386684a0 |
|---|---|
| 1 ! { dg-do run } | |
| 2 ! { dg-options "-fdec" } | |
| 3 ! | |
| 4 ! Test case contributed by Mark Eggleston <mark.eggleston@codethink.com> | |
| 5 ! | |
| 6 | |
| 7 program convert | |
| 8 real(4) :: a | |
| 9 real(4) :: b | |
| 10 a = 4HABCD | |
| 11 b = transfer("ABCD", b) | |
| 12 ! Hollerith constants | |
| 13 if (a.ne.4HABCD) stop 1 | |
| 14 if (a.eq.4HABCE) stop 2 | |
| 15 if (4HABCD.ne.b) stop 3 | |
| 16 if (4HABCE.eq.b) stop 4 | |
| 17 if (4HABCE.lt.a) stop 5 | |
| 18 if (a.gt.4HABCE) stop 6 | |
| 19 if (4HABCE.le.a) stop 7 | |
| 20 if (a.ge.4HABCE) stop 8 | |
| 21 end program | |
| 22 |