1! { dg-do compile }
2! PR 70260 - this used to ICE
3! Original test case by Gehard Steinmetz
4module m
5   interface gkind
6      procedure g
7   end interface
8contains
9   integer function g()
10      g => 1 ! { dg-error "Pointer assignment target cannot be a constant" }
11   end
12   subroutine f(x)
13      character(kind=kind(gkind())) :: x
14   end
15end
16