blob: 9dc2ece1efd008d334438b3f13059f50626ee6ca [file] [log] [blame]
! { dg-do run }
! { dg-options "-fdec" }
!
! Modified by Mark Eggleston <mark.eggleston@codethink.com>
!
program test
integer(4) :: a
real(4) :: b
complex(4) :: c
logical(4) :: d
integer(4) :: e
real(4) :: f
complex(4) :: g
logical(4) :: h
a = '1234'
b = '1234'
c = '12341234'
d = '1234'
e = 4h1234
f = 4h1234
g = 8h12341234
h = 4h1234
if (a.ne.e) stop 1
if (b.ne.f) stop 2
if (c.ne.g) stop 3
if (d.neqv.h) stop 4
! padded values
a = '12'
b = '12'
c = '12234'
d = '124'
e = 2h12
f = 2h12
g = 5h12234
h = 3h123
if (a.ne.e) stop 5
if (b.ne.f) stop 6
if (c.ne.g) stop 7
if (d.neqv.h) stop 8
! truncated values
a = '123478'
b = '123478'
c = '12341234987'
d = '1234abc'
e = 6h123478
f = 6h123478
g = 11h12341234987
h = 7h1234abc
if (a.ne.e) stop 5
if (b.ne.f) stop 6
if (c.ne.g) stop 7
if (d.neqv.h) stop 8
end program