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.
7 integer, parameter :: FourByteReal
= selected_real_kind(P
= 6, R
= 37)