blob: 90a7560bc5ee1596566cf83e014652b0ba3cd398 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
! { dg-do compile }
!
! PR fortran/51913
!
! Contributed by Alexander Tismer
!
MODULE m_sparseMatrix
implicit none
type :: sparseMatrix_t
end type sparseMatrix_t
END MODULE m_sparseMatrix
!===============================================================================
module m_subroutine
! USE m_sparseMatrix !< when uncommenting this line program works fine
implicit none
contains
subroutine test(matrix)
use m_sparseMatrix
class(sparseMatrix_t), pointer :: matrix
end subroutine
end module
!===============================================================================
PROGRAM main
use m_subroutine
USE m_sparseMatrix
implicit none
CLASS(sparseMatrix_t), pointer :: sparseMatrix
call test(sparseMatrix)
END PROGRAM
! { dg-final { cleanup-modules "m_sparsematrix m_subroutine" } }
|
