view gcc/testsuite/gfortran.dg/blockdata_10.f90 @ 145:1830386684a0

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents
children
line wrap: on
line source

! { dg-do compile }
!
! PR 88009: [9 Regression] ICE in find_intrinsic_vtab, at fortran/class.c:2761
!
! Contributed by G. Steinmetz <gscfq@t-online.de>

module m
   class(*), allocatable :: z
end
block data
   use m
   z = 'z'  ! { dg-error "assignment statement is not allowed|Unexpected assignment statement" }
end