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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [char_type_len.f90] - Blame information for rev 154

Details | Compare with Previous | View Log


! { dg-do run }
! Testcase for PR fortran/25681
program char_type_len
  integer,parameter :: n = 9
  type foo_t
     character (len = 80) :: bar (1)
     character (len = 75) :: gee (n)
  end type foo_t
  type(foo_t) :: foo
 
  if (len(foo%bar) /= 80 .or. len(foo%gee) /= 75) call abort
end program char_type_len

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! Testcase for PR fortran/25681`
3			`program char_type_len`
4			`integer,parameter :: n = 9`
5			`type foo_t`
6			`character (len = 80) :: bar (1)`
7			`character (len = 75) :: gee (n)`
8			`end type foo_t`
9			`type(foo_t) :: foo`
10
11			`if (len(foo%bar) /= 80 .or. len(foo%gee) /= 75) call abort`
12			`end program char_type_len`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [char_type_len.f90] - Blame information for rev 154