代码搜索结果

! This file created from test/mpi/f77/coll/allredint8f.f with f77tof90 ! -*- Mode: Fortran; -*- ! ! (C) 2006 by Argonne National Laboratory. ! See COPYRIGHT in top-level directory. ! prog

! This file created from test/mpi/f77/info/infotest2f.f with f77tof90 ! -*- Mode: Fortran; -*- ! ! (C) 2003 by Argonne National Laboratory. ! See COPYRIGHT in top-level directory. ! progr

/* * $QNXLicenseC: * Copyright 2007, QNX Software Systems. * * Licensed under the Apache License, Version 2.0 (the "License"). You * may not reproduce, modify or distribute this software e

/* * $QNXLicenseC: * Copyright 2007, QNX Software Systems. * * Licensed under the Apache License, Version 2.0 (the "License"). You * may not reproduce, modify or distribute this software e

/************************************************************************************************** Revised: $Date: 2007-07-06 11:19:00 -0700 (Fri, 06 Jul 2007) $ Revision: $Revisio

/************************************************************************************************** Revised: $Date: 2007-07-06 11:19:00 -0700 (Fri, 06 Jul 2007) $ Revision: $Revisio

! check F2.x edit descriptors ! PR 14746 CHARACTER*15 LINE RCON21 = 9. RCON22 = .9 WRITE(LINE,'(F2.0,1H,,F2.1)')RCON21,RCON22 READ(LINE,'(F2.0,1X,F2.1)')XRCON21,XRCON22

print *, "Hello world" end ! { dg-do compile }

! { dg-do run } ! { dg-additional-sources f2c_4.c } ! { dg-options "-ff2c -w" } ! Check -ff2c calling conventions ! Return value of REAL function is promoted to C type double ! Return value of CO

! { dg-do run } ! { dg-additional-sources c_f_pointer_logical_driver.c } ! Verify that c_f_pointer exists for C logicals (_Bool). module c_f_pointer_logical use, intrinsic :: iso_c_binding, only: c_