derek.holloway
7502bf64a4
CodeQL / Analyze (actions) (push) Canceled after 0s
CodeQL / Analyze (python) (push) Canceled after 0s
pre-commit / pre-commit (push) Canceled after 0s
Multi-Arch CI / setup (push) Canceled after 0s
Publish build_manylinux_x86_64 images / publish_build_manylinux_x86_64 (push) Canceled after 0s
Setup (Multi-Arch) / setup (push) Canceled after 0s
Multi-Arch CI / Linux::${{ fromJSON(needs.setup.outputs.linux_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubi10 image / publish_no_rocm_image_ubi10 (push) Canceled after 0s
Multi-Arch CI / Windows::${{ fromJSON(needs.setup.outputs.windows_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Multi-Arch CI / Manifest Diff (push) Canceled after 0s
TheRock Manifest Diff Report / Generate Manifest Diff Report (push) Canceled after 0s
Multi-Arch CI / CI Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_ocl_rt images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_rocgdb images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Unit Tests / Unit Tests :: ubuntu-24.04 (push) Canceled after 0s
Unit Tests / Unit Tests :: windows-2022 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_media (push) Canceled after 0s
Unit Tests / Unit Tests Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_openmpi (push) Canceled after 0s
34 lines
905 B
C
34 lines
905 B
C
/* langs1.f -- translated by f2c (version of 5 May 1990 1:12:08). */
|
|
|
|
/* f2c output hacked as follows for GDB testsuite:
|
|
1. Change commented out "#" lines to #line directives.
|
|
I don't know why this behavior isn't the default for f2c -g.
|
|
2. Remove include of f2c.h and put in just a typedef for "integer".
|
|
Additional notes:
|
|
3. f2c was called as "f2c -g langs1.f".
|
|
4. We don't need to use the fortran libraries. */
|
|
|
|
typedef int integer;
|
|
|
|
/* Table of constant values */
|
|
|
|
static integer c__10000 = 10000;
|
|
|
|
/* I am not sure whether there is a way to have a fortran program without */
|
|
/* a MAIN, but it does not really harm us to have one. */
|
|
/* Main program */ void MAIN__()
|
|
{
|
|
} /* MAIN__ */
|
|
|
|
#line 4 "langs1.f"
|
|
/* Subroutine */ int fsub_()
|
|
{
|
|
extern integer cppsub_(int*);
|
|
|
|
#line 5 "langs1.f"
|
|
#line 6 "langs1.f"
|
|
return cppsub_(&c__10000);
|
|
#line 7 "langs1.f"
|
|
} /* fsub_ */
|
|
|