CbC/CbC_gcc: gcc/testsuite/gfortran.dg/move_alloc

gcc 7

comparison

equal deleted inserted replaced

-:561a7518be6b
+:04ced10e8804
+! { dg-do compile }
+!
+! PR fortran/51948
+!
+type :: t
+end type t
+contains
+function func(x, y)
+class(t) :: y
+type(t), allocatable :: func
+type(t), allocatable :: x
+select type (y)
+type is(t)
+call move_alloc (x, func)
+end select
+end function
+function func2(x, y)
+class(t) :: y
+class(t), allocatable :: func2
+class(t), allocatable :: x
+block
+block
+select type (y)
+type is(t)
+call move_alloc (x, func2)
+end select
+end block
+end block
+end function
+end

Mercurial > hg > CbC > CbC_gcc