+
−! { dg-do compile }
+
−!
+
−! PR fortran/65532
+
−! The partial initialization through data statements was producing
+
−! shape mismatch errors.
+
−!
+
−! Contributed by Harald Anlauf  <anlauf@gmx.de>
+
−
+
−module gfcbug131
+
−  implicit none
+
−contains
+
−  DOUBLE PRECISION FUNCTION d1mach(i)
+
−    INTEGER, INTENT(IN)         :: i
+
−
+
−    INTEGER :: small(4)
+
−    INTEGER :: large(4)
+
−    INTEGER :: right(4)
+
−    INTEGER :: diver(4)
+
−    INTEGER :: LOG10(4)
+
−    DOUBLE PRECISION :: dmach(5)
+
−
+
−    EQUIVALENCE (dmach(1),small(1))
+
−    EQUIVALENCE (dmach(2),large(1))
+
−    EQUIVALENCE (dmach(3),right(1))
+
−    EQUIVALENCE (dmach(4),diver(1))
+
−    EQUIVALENCE (dmach(5),LOG10(1))
+
−
+
−    DATA small(1),small(2) /          0,    1048576 /
+
−    DATA large(1),large(2) /         -1, 2146435071 /
+
−    DATA right(1),right(2) /          0, 1017118720 /
+
−    DATA diver(1),diver(2) /          0, 1018167296 /
+
−    DATA LOG10(1),LOG10(2) / 1352628735, 1070810131 /
+
−
+
−    d1mach = dmach(i)
+
−  END FUNCTION d1mach
+
−
+
−  DOUBLE PRECISION FUNCTION foo (x)
+
−    DOUBLE PRECISION, INTENT(IN) :: x
+
−    foo = SQRT (d1mach(4))
+
−  END FUNCTION foo
+
−
+
−end module gfcbug131
+
−