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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR fortran/51448
!
! Contribued by François Willot
!
  PROGRAM MAIN
  IMPLICIT NONE
  TYPE mytype
    REAL b(2)
  END TYPE mytype
  TYPE(mytype) a
  DOUBLE PRECISION, ALLOCATABLE :: x(:)
  ALLOCATE(x(2))
  a%b=0.0E0
  x=a%b
  END

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/51448`
4			`!`
5			`! Contribued by François Willot`
6			`!`
7			`PROGRAM MAIN`
8			`IMPLICIT NONE`
9			`TYPE mytype`
10			`REAL b(2)`
11			`END TYPE mytype`
12			`TYPE(mytype) a`
13			`DOUBLE PRECISION, ALLOCATABLE :: x(:)`
14			`ALLOCATE(x(2))`
15			`a%b=0.0E0`
16			`x=a%b`
17			`END`

Browse

Tools

Subversion Repositories openrisc

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