| ! { dg-do run } | |
| ! | |
| ! PR fortran/41515 | |
| ! Contributed by ros@rzg.mpg.de. | |
| ! | |
| ! Before, the "parm' string array was never initialized. | |
| ! | |
| Module BUG3 | |
| contains | |
| Subroutine SR | |
| character(3) :: parm(5) | |
| character(20) :: str | |
| parameter(parm=(/'xo ','yo ','ag ','xr ','yr '/)) | |
| str = 'XXXXXXXXXXXXXXXXXXXX' | |
| if(str /='XXXXXXXXXXXXXXXXXXXX') STOP 1 | |
| write(str,*) parm | |
| if(str /= ' xo yo ag xr yr') STOP 2 | |
| end subroutine SR | |
| end Module BUG3 | |
| ! | |
| program TEST | |
| use bug3 | |
| call sr | |
| end program TEST |