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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [char_component_initializer_1.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! Check the fix for PR31487 in which the derived type default initializer
3
! would be padded out with nulls instead of spaces.
4
!
5
! Reported by Harald Anlauf 
6
!
7
program gfcbug62
8
  implicit none
9
  character(len=16) ::    tdefi(2) = (/'0z1jan0000','1hr       '/)
10
  type t_ctl
11
     character(len=16) :: tdefi(2) = (/'0z1jan0000','1hr       '/)
12
  end type t_ctl
13
 
14
  type(t_ctl) :: ctl
15
  integer     :: i,k
16
 
17
  if (tdefi(1) .ne. ctl%tdefi(1)) call abort ()
18
end program gfcbug62

powered by: WebSVN 2.1.0

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