代码搜索:usage
找到约 10,000 项符合「usage」的源代码
代码结果 10,000
www.eeworm.com/read/366702/2876357
c bind_c_usage_16_c.c
/* Check character-returning bind(C) functions
PR fortran/34079
To be linked with bind_c_usage_16.f03
*/
#include
char returnA(char *);
char returnB(void);
void test(void);
int mai
www.eeworm.com/read/366702/2876585
f90 bind_c_usage_15.f90
! { dg-do run }
!
! PR fortran/34187
! The binding label was not exported for private procedures
! with public generic interfaces.
!
module mod
use iso_c_binding, only: c_int
implicit none
priva
www.eeworm.com/read/366702/2876759
f03 bind_c_usage_8.f03
! { dg-do compile }
! This should compile, though there is a warning about the type of len
! (return variable of strlen()) for being implicit.
! PR fortran/32797
!
MODULE ISO_C_UTILITIES
USE ISO_C_
www.eeworm.com/read/366702/2876784
f03 bind_c_usage_10.f03
! { dg-do run }
! { dg-additional-sources bind_c_usage_10_c.c }
!
! PR fortran/34079
!
! Check BIND(C) for ENTRY
!
module mod
use iso_c_binding
implicit none
contains
subroutine sub1(j) bind(c, na
www.eeworm.com/read/366702/2877005
f03 bind_c_usage_2.f03
! { dg-do compile }
use, intrinsic :: iso_c_binding
type, bind(c) :: mytype
integer(c_int) :: j
end type mytype
type(mytype), bind(c) :: mytype_var ! { dg-error "cannot be BIND.C." }
integer(c_int
www.eeworm.com/read/366702/2877175
f03 bind_c_usage_11.f03
! { dg-do compile }
! { dg-options "-std=gnu" }
! PR fortran/34133
!
! The compiler should accept internal procedures with BIND(c) attribute
! for STD GNU / Fortran 2008.
!
subroutine foo() bind(c)
co
www.eeworm.com/read/366702/2877185
f03 bind_c_usage_16.f03
! { dg-do run }
! { dg-additional-sources bind_c_usage_16_c.c }
!
! PR fortran/34079
!
! Ensure character-returning, bind(C) function work.
!
module mod
use iso_c_binding
implicit none
contains
www.eeworm.com/read/366702/2877321
f03 bind_c_usage_9.f03
! { dg-do compile }
! { dg-options "-std=f2003" }
! PR fortran/34133
!
! The compiler should reject internal procedures with BIND(c) attribute
! for Fortran 2003.
!
subroutine foo() bind(c)
contains
www.eeworm.com/read/366702/2877397
f03 bind_c_usage_14.f03
! { dg-do compile }
! { dg-options "-fdump-tree-original" }
!
! PR fortran/34079
! Bind(C) procedures shall have no character length
! dummy and actual arguments.
!
! SUBROUTINES
subroutine sub1nois
www.eeworm.com/read/366702/2877572
f03 bind_c_usage_12.f03
! { dg-do compile }
! { dg-options "-std=gnu" }
! PR fortran/34133
!
! bind(C,name="...") is invalid for dummy procedures
! and for internal procedures.
!
subroutine dummy1(a,b)
! implicit none
int