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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgfortran/] [generated/] [_sign_r10.F90] - Blame information for rev 733

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 733 jeremybenn
!   Copyright 2002, 2007, 2009 Free Software Foundation, Inc.
2
!   Contributed by Paul Brook 
3
!
4
!This file is part of the GNU Fortran 95 runtime library (libgfortran).
5
!
6
!GNU libgfortran is free software; you can redistribute it and/or
7
!modify it under the terms of the GNU General Public
8
!License as published by the Free Software Foundation; either
9
!version 3 of the License, or (at your option) any later version.
10
 
11
!GNU libgfortran is distributed in the hope that it will be useful,
12
!but WITHOUT ANY WARRANTY; without even the implied warranty of
13
!MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14
!GNU General Public License for more details.
15
!
16
!Under Section 7 of GPL version 3, you are granted additional
17
!permissions described in the GCC Runtime Library Exception, version
18
!3.1, as published by the Free Software Foundation.
19
!
20
!You should have received a copy of the GNU General Public License and
21
!a copy of the GCC Runtime Library Exception along with this program;
22
!see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
23
!.
24
!
25
!This file is machine generated.
26
 
27
 
28
 
29
#include "config.h"
30
#include "kinds.inc"
31
#include "c99_protos.inc"
32
 
33
#if defined (HAVE_GFC_REAL_10)
34
 
35
 
36
 
37
elemental function _gfortran_specific__sign_r10 (p1, p2)
38
   real (kind=10), intent (in) :: p1, p2
39
   real (kind=10) :: _gfortran_specific__sign_r10
40
 
41
   _gfortran_specific__sign_r10 = sign (p1, p2)
42
end function
43
 
44
 
45
 
46
#endif

powered by: WebSVN 2.1.0

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