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