OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.