gcc/testsuite/gfortran.dg/unresolved_fixup_2.f90

! { dg-do compile }
!
! PR fortran/58007
! Unresolved fiixup while loading a module.
!
! This tests that the specification expression A%MAX_DEGREE in module BSR is
! correctly loaded and resolved in program MAIN.
!
! Original testcase from Daniel Shapiro <shapero@uw.edu>

module matrix
  type :: sparse_matrix
    integer :: max_degree
  end type
end module

module bsr
  use matrix

  type, extends(sparse_matrix) :: bsr_matrix
  end type

  integer :: i1
  integer :: i2
  integer :: i3
contains
  function get_neighbors (A)
    type(bsr_matrix), intent(in) :: A
    integer :: get_neighbors(A%max_degree)
  end function
end module

program main
  use matrix
  use bsr
end