Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/impure_constructor_1.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR fortran/43362 ! module m implicit none type t integer, pointer :: a end type t type t2 type(t) :: b end type t2 type t3 type(t), pointer :: b end type t3 contains pure subroutine foo(x) type(t), target, intent(in) :: x type(t2) :: y type(t3) :: z ! The following gave an ICE but is valid: y = t2(x) ! Note: F2003, C1272 (3) and (4) do not apply ! Variant which is invalid as C1272 (3) applies z = t3(x) ! { dg-error "Invalid expression in the structure constructor" } end subroutine foo end module m