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/] [arrayio_derived_2.f90] - Blame information for rev 308

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


! { dg-do compile }
! PR 24266: IO to/from arrays that are components of derived types.
program main
  implicit none
 
  type ice
    character(len=80) :: mess(3)
  end type ice
  type(ice) :: tp
  integer :: i
  character(len=80) :: mess
 
  write(tp%mess,*) "message"
  read(tp%mess,*) mess
  print *, mess
 
end program main

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! PR 24266: IO to/from arrays that are components of derived types.`
3			`program main`
4			`implicit none`
5
6			`type ice`
7			`character(len=80) :: mess(3)`
8			`end type ice`
9			`type(ice) :: tp`
10			`integer :: i`
11			`character(len=80) :: mess`
12
13			`write(tp%mess,*) "message"`
14			`read(tp%mess,*) mess`
15			`print *, mess`
16
17			`end program main`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [arrayio_derived_2.f90] - Blame information for rev 308