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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! Tests the fix for PR34471 in which function KINDs that were
! USE associated would cause an error.  This checks a regression
! caused by an intermediate version of the patch.
!
! Contributed by Tobias Burnus 
!
real (bad_kind(0d0)) function foo () ! { dg-error "must be an intrinsic function" }
  foo = real (kind (foo))
end function

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! Tests the fix for PR34471 in which function KINDs that were`
3			`! USE associated would cause an error. This checks a regression`
4			`! caused by an intermediate version of the patch.`
5			`!`
6			`! Contributed by Tobias Burnus`
7			`!`
8			`real (bad_kind(0d0)) function foo () ! { dg-error "must be an intrinsic function" }`
9			`foo = real (kind (foo))`
10			`end function`

Browse

Tools

Subversion Repositories openrisc

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