gcc/gcc/testsuite/gfortran.dg/function_kinds_5.f90 - native_client/nacl-toolchain - Git at Google

 ! { dg-do compile }
 ! Tests the fix for PR34471 in which function KINDs that were
 ! USE associated would cause an error.  This checks a regression
 ! caused by an intermediate version of the patch.
 !
 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
 !
 real (bad_kind(0d0)) function foo () ! { dg-error "must be an intrinsic or" }
   foo = real (kind (foo))
 end function
	! { dg-do compile }
	! Tests the fix for PR34471 in which function KINDs that were
	! USE associated would cause an error. This checks a regression
	! caused by an intermediate version of the patch.
	!
	! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
	!
	real (bad_kind(0d0)) function foo () ! { dg-error "must be an intrinsic or" }
	foo = real (kind (foo))
	end function