gcc/testsuite/gfortran.dg/unresolved_fixup_2.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/58007
   4 ! Unresolved fiixup while loading a module.
   5 !
   6 ! This tests that the specification expression A%MAX_DEGREE in module BSR is
   7 ! correctly loaded and resolved in program MAIN.
   8 !
   9 ! Original testcase from Daniel Shapiro <shapero@uw.edu>
  10
  11 module matrix
  12   type :: sparse_matrix
  13     integer :: max_degree
  14   end type
  15 end module
  16
  17 module bsr
  18   use matrix
  19
  20   type, extends(sparse_matrix) :: bsr_matrix
  21   end type
  22
  23   integer :: i1
  24   integer :: i2
  25   integer :: i3
  26 contains
  27   function get_neighbors (A)
  28     type(bsr_matrix), intent(in) :: A
  29     integer :: get_neighbors(A%max_degree)
  30   end function
  31 end module
  32
  33 program main
  34   use matrix
  35   use bsr
  36 end