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/] [include_3.f95] - Blame information for rev 302

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn
# 1 "../../../trunk/libgfortran/generated/_abs_c4.F90"
2
# 1 "C:\\msys\\1.0.10\\home\\FX\\ibin\\i586-pc-mingw32\\libgfortran//"
3
# 1 ""
4
# 1 ""
5
# 1 "../../../trunk/libgfortran/generated/_abs_c4.F90"
6
!   Comment here
7
 
8
# 1 "./config.h" 1
9
 
10
# 37 "../../../trunk/libgfortran/generated/_abs_c4.F90" 2
11
 
12
# 1 "./kinds.inc" 1
13
# 38 "../../../trunk/libgfortran/generated/_abs_c4.F90" 2
14
 
15
# 1 "./c99_protos.inc" 1
16
# 39 "../../../trunk/libgfortran/generated/_abs_c4.F90" 2
17
 
18
elemental function abs_c4 (parm)
19
   complex (kind=4), intent (in) :: parm
20
   real (kind=4) :: abs_c4
21
 
22
   abs_c4 = abs (parm)
23
end function
24
 
25
! { dg-do compile }
26
! { dg-options "-fpreprocessed -g3" }

powered by: WebSVN 2.1.0

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