2 ! This tests the patch for PR29098, in which the presence of the default
3 ! initializer would cause allocate to fail because the latter uses
4 ! the interface assignment. This, in its turn was failing because
5 ! no expressions were found for the other components; and a FAILURE
6 ! was returned from resolve_structure_cons.
8 ! Contributed by Olav Vahtras <vahtras@pdc.kth.se>
12 INTEGER :: R = 0,C = 0
15 INTEGER, DIMENSION(:), POINTER :: R,C
16 TYPE(BAS), POINTER, DIMENSION(:) :: NO => NULL()
18 INTERFACE ASSIGNMENT(=)
19 MODULE PROCEDURE BLASSIGN
22 SUBROUTINE BLASSIGN(A,B)
23 TYPE(BLOCK), INTENT(IN) :: B
24 TYPE(BLOCK), INTENT(INOUT) :: A
27 END SUBROUTINE BLASSIGN
36 ! { dg-final { cleanup-modules "mat" } }