1! { dg-do run } 2! 3! PR fortran/41515 4! Contributed by ros@rzg.mpg.de. 5! 6! Before, the "parm' string array was never initialized. 7! 8Module BUG3 9contains 10 Subroutine SR 11 character(3) :: parm(5) 12 character(20) :: str 13 parameter(parm=(/'xo ','yo ','ag ','xr ','yr '/)) 14 15 str = 'XXXXXXXXXXXXXXXXXXXX' 16 if(str /='XXXXXXXXXXXXXXXXXXXX') call abort() 17 write(str,*) parm 18 if(str /= ' xo yo ag xr yr') call abort() 19 end subroutine SR 20end Module BUG3 21! 22program TEST 23 use bug3 24 call sr 25end program TEST 26