2 ! { dg-options "-std=f2003 " }
6 ! Association to derived-type, where the target type is not know
7 ! during parsing (only resolution).
9 ! Contributed by Daniel Kraft, d@domob.eu.
20 END INTERFACE OPERATOR(+)
24 PURE FUNCTION add (a, b)
25 TYPE(mynum), INTENT(IN) :: a, b
28 add%comp = a%comp + b%comp
40 ASSOCIATE (x => add (a, a))
41 IF (x%comp /= 10) STOP 1
44 ASSOCIATE (x => a + a)
45 IF (x%comp /= 10) STOP 2