代码搜索结果

! { dg-do run } ! { dg-additional-sources c_f_pointer_complex_driver.c } ! { dg-options "-std=gnu -w" } ! Test c_f_pointer for the different types of interoperable complex values. module c_f_pointer_c

! { dg-do run } ! { dg-options "-ff2c" } ! Verifies that array results work with -ff2c ! try all permutations of result clause in function yes/no ! and result clause in interface y

! { dg-do run } ! { dg-options "-ff2c" } ! Verifies that internal functions are not broken by f2c calling conventions program test real, target :: f real, pointer :: q real :: g f = 1.0 q=>f

! { dg-do run } ! { dg-additional-sources f2c_5.c } ! { dg-options "-fno-f2c -w" } ! Check calling conventions without -ff2c program f2c_5 call f2c_5a() end real function f2c_5b(x) double preci

! { dg-do run } program value_tests_f03 use, intrinsic :: iso_c_binding real(c_double) :: myDouble interface subroutine value_test(myDouble) bind(c) use, intrinsic :: iso_c_binding

! { dg-do run } ! { dg-options "-ff2c" } ! Verifies that complex pointer results work with -ff2c ! try all permutations of result clause in function yes/no ! and result clause in i

! { dg-do run } ! { dg-additional-sources c_f_tests_driver.c } module c_f_pointer_tests use, intrinsic :: iso_c_binding type myF90Derived integer(c_int) :: cInt real(c_double) :: cDoubl

! { dg-do compile } ! { dg-options "-ff2c" } ! PR 25392 ! Verify that the type of the result variable matches the declared ! type of the function. The actual type of the function may be ! different f

! Make sure the f2c calling conventions work ! { dg-do run } ! { dg-options "-ff2c" } function f(x) f = x end function f complex function c(a,b) c = cmplx (a,b) end function c double complex fu

; lzo1f_f1.asm -- lzo1f_decompress_asm_fast ; ; This file is part of the LZO real-time data compression library. ; ; Copyright (C) 2005 Markus Franz Xaver Johannes Oberhumer ; Copyright (C) 2004 M