Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/finalize_24.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 !
3 ! PR fortran/58880
4 !
5 ! Contributed by Andrew Benson
6 !
7
8 module gn
9 type sl
10 integer, allocatable, dimension(:) :: lv
11 contains
12 final :: sld
13 end type sl
14 type :: nde
15 type(sl) :: r
16 end type nde
17 contains
18 subroutine ndm(s)
19 type(nde), intent(inout) :: s
20 type(nde) :: i
21 i=s
22 end subroutine ndm
23 subroutine sld(s)
24 implicit none
25 type(sl), intent(inout) :: s
26 return
27 end subroutine sld
28 end module gn