OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [parameter_array_init_5.f90] - Rev 316

Go to most recent revision | Compare with Previous | Blame | View Log

! { 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') call abort()
    write(str,*) parm
    if(str /= ' xo yo ag xr yr') call abort()
    end subroutine SR
end Module BUG3
!
program TEST
    use bug3
    call sr
end program TEST
! { dg-final { cleanup-modules "bug3" } }

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.