gcc/testsuite/gfortran.fortran-torture/compile/named_args_2.f90 - gcc - Git at Google

 ! this is the reduced testcase from pr13372
 ! we wrongly add a symbol "P" to the module
 ! Currently (2004/06/09) a workaround is in place
 ! PR 15481 tracks any steps towards a real fix.
 module typeSizes
 implicit none
   integer, parameter :: FourByteReal = selected_real_kind(P =  6, R =  37)
 end module typeSizes
	! this is the reduced testcase from pr13372
	! we wrongly add a symbol "P" to the module
	! Currently (2004/06/09) a workaround is in place
	! PR 15481 tracks any steps towards a real fix.
	module typeSizes
	implicit none
	integer, parameter :: FourByteReal = selected_real_kind(P = 6, R = 37)
	end module typeSizes