2 ! { dg-options "-std=f2003 -fall-intrinsics" }
4 ! FIXME: Change into run test and remove excess error expectation.
7 ! Association to derived-type, where the target type is not know
8 ! during parsing (only resolution).
10 ! Contributed by Daniel Kraft, d@domob.eu.
21 END INTERFACE OPERATOR(+)
25 PURE FUNCTION add (a, b)
26 TYPE(mynum), INTENT(IN) :: a, b
29 add%comp = a%comp + b%comp
41 ASSOCIATE (x => add (a, a))
42 IF (x%comp /= 10) CALL abort ()
45 ASSOCIATE (x => a + a)
46 IF (x%comp /= 10) CALL abort ()
50 ! { dg-excess-errors "Syntex error in IF" }