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

Subversion Repositories openrisc

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

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


! { dg-do compile }
 
! PR fortran/35770
! Implicit declaration hides type of internal function.
 
! Contributed by Dick Hendrickson 
 
IMPLICIT CHARACTER (s)
REAL :: RDA
 
RDA = S_REAL_SQRT_I(42) ! { dg-bogus "Can't convert" }
 
CONTAINS
 
REAL FUNCTION S_REAL_SQRT_I(I) RESULT (R)
  IMPLICIT NONE
  INTEGER :: I
  R = 0.0
END FUNCTION S_REAL_SQRT_I
 
END

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2
3			`! PR fortran/35770`
4			`! Implicit declaration hides type of internal function.`
5
6			`! Contributed by Dick Hendrickson`
7
8			`IMPLICIT CHARACTER (s)`
9			`REAL :: RDA`
10
11			`RDA = S_REAL_SQRT_I(42) ! { dg-bogus "Can't convert" }`
12
13			`CONTAINS`
14
15			`REAL FUNCTION S_REAL_SQRT_I(I) RESULT (R)`
16			`IMPLICIT NONE`
17			`INTEGER :: I`
18			`R = 0.0`
19			`END FUNCTION S_REAL_SQRT_I`
20
21			`END`

Browse

Tools

Subversion Repositories openrisc

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