blob: d2ed3d3e369bb051198745bacf66abc13cd743fb [file] [log] [blame]
! { dg-do compile }
! PR 70260 - this used to ICE
! Original test case by Gehard Steinmetz
module m
interface gkind
procedure g
end interface
contains
integer function g()
g => 1 ! { dg-error "Pointer assignment target cannot be a constant" }
end
subroutine f(x)
character(kind=kind(gkind())) :: x
end
end