| ! { dg-do run } | |
| ! { dg-options "-fdec" } | |
| ! | |
| ! Test case contributed by Mark Eggleston <mark.eggleston@codethink.com> | |
| ! | |
| program convert | |
| character(4) :: c = 4HJMAC | |
| if (4HJMAC.ne.4HJMAC) stop 1 | |
| if (4HJMAC.ne."JMAC") stop 2 | |
| if (4HJMAC.eq."JMAN") stop 3 | |
| if ("JMAC".eq.4HJMAN) stop 4 | |
| if ("AAAA".eq.5HAAAAA) stop 5 | |
| if ("BBBBB".eq.5HBBBB ) stop 6 | |
| if (4HJMAC.ne.c) stop 7 | |
| if (c.ne.4HJMAC) stop 8 | |
| end program | |