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