2 ! Checks the fix for PR31205, in which temporaries were not
3 ! written for the interface assignment and the parentheses below.
5 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
11 INTERFACE ASSIGNMENT (=)
15 PURE SUBROUTINE set(x1,x2)
16 TYPE(data_type), INTENT(IN) :: x2
17 TYPE(data_type), INTENT(OUT) :: x1
20 PURE SUBROUTINE S1(x1,x2)
21 TYPE(data_type), INTENT(IN) :: x2
22 TYPE(data_type), INTENT(OUT) :: x1
28 TYPE(data_type) :: D,E
36 IF (D%I.NE.4) call abort ()
37 IF (4.NE.E%I) call abort ()
39 ! { dg-final { cleanup-modules "TT" } }