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

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


! { dg-do compile }
! Tests the fix for PR29422, in which function results
! were not tested for suitability in IO statements.
!
! Contributed by Dominique d'Humieres  
!
Type drv
 Integer :: i
 Integer, allocatable :: arr(:)
End type drv
 
  print *, fun1 () ! { dg-error "cannot have ALLOCATABLE" }
 
contains
  Function fun1 ()
 
    Type(drv) :: fun1
    fun1%i = 10
  end function fun1
end
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! Tests the fix for PR29422, in which function results`
3			`! were not tested for suitability in IO statements.`
4			`!`
5			`! Contributed by Dominique d'Humieres`
6			`!`
7			`Type drv`
8			`Integer :: i`
9			`Integer, allocatable :: arr(:)`
10			`End type drv`
11
12			`print *, fun1 () ! { dg-error "cannot have ALLOCATABLE" }`
13
14			`contains`
15			`Function fun1 ()`
16
17			`Type(drv) :: fun1`
18			`fun1%i = 10`
19			`end function fun1`
20			`end`
21

Browse

Tools

Subversion Repositories openrisc_me

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