gcc/testsuite/gfortran.dg/pr88376.f90 - gcc - Git at Google

 ! { dg-do compile }
 module m
    integer :: n
 contains
    subroutine s
       character(n(3)) :: c  ! { dg-error "not a function" }
    end
 end
	! { dg-do compile }
	module m
	integer :: n
	contains
	subroutine s
	character(n(3)) :: c ! { dg-error "not a function" }
	end
	end