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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgfortran/] [generated/] [_cos_r8.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
 
30
 
31
#include "config.h"
32
#include "kinds.inc"
33
#include "c99_protos.inc"
34
 
35
#if defined (HAVE_GFC_REAL_8)
36
#ifdef HAVE_COS
37
 
38
elemental function _gfortran_specific__cos_r8 (parm)
39
   real (kind=8), intent (in) :: parm
40
   real (kind=8) :: _gfortran_specific__cos_r8
41
 
42
   _gfortran_specific__cos_r8 = cos (parm)
43
end function
44
 
45
#endif
46
#endif

powered by: WebSVN 2.1.0

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