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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! Tests the fix for PR39334 in which the recursive parameter declaration
! caused a sgfault.
!
! Reported by James van Buskirk on comp.lang.fortran
!
program recursive_parameter
   implicit none
   integer, parameter :: dp = kind(1.0_dp) ! { dg-error "Missing kind-parameter" }
   write(*,*) dp ! { dg-error "has no IMPLICIT type" }
end program recursive_parameter

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! Tests the fix for PR39334 in which the recursive parameter declaration`
3			`! caused a sgfault.`
4			`!`
5			`! Reported by James van Buskirk on comp.lang.fortran`
6			`!`
7			`program recursive_parameter`
8			`implicit none`
9			`integer, parameter :: dp = kind(1.0_dp) ! { dg-error "Missing kind-parameter" }`
10			`write(,) dp ! { dg-error "has no IMPLICIT type" }`
11			`end program recursive_parameter`

Browse

Tools

Subversion Repositories openrisc

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