--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/gcc/testsuite/gfortran.dg/pr88376.f90 Thu Feb 13 11:34:05 2020 +0900 @@ -0,0 +1,8 @@ +! { dg-do compile } +module m + integer :: n +contains + subroutine s + character(n(3)) :: c ! { dg-error "not a function" } + end +end