1! { dg-do compile } 2! { dg-options "-finit-derived -finit-integer=12345678" } 3! 4! PR fortran/80668 5! 6! Test a regression where structure constructor expressions were created for 7! POINTER components with -finit-derived. 8! 9 10MODULE pr80668 11 IMPLICIT NONE 12 TYPE :: dist_t 13 INTEGER :: TYPE,nblks_loc,nblks 14 INTEGER,DIMENSION(:),POINTER :: dist 15 END TYPE dist_t 16 17CONTAINS 18 19 SUBROUTINE hfx_new() 20 TYPE(dist_t) :: dist 21 integer,pointer :: bob 22 CALL release_dist(dist, bob) 23 END SUBROUTINE hfx_new 24 25 SUBROUTINE release_dist(dist,p) 26 TYPE(dist_t) :: dist 27 integer, pointer, intent(in) :: p 28 END SUBROUTINE release_dist 29END MODULE 30