1! { dg-do compile }
2! PR68442
3module m
4   interface gkind
5      procedure g
6   end interface
7contains
8   subroutine f(x)
9      character(kind=gkind()) :: x ! { dg-error "must be an intrinsic" }
10   end
11   integer function g()
12      g = 1
13   end
14end
15