(root)/
gcc-13.2.0/
gcc/
testsuite/
gfortran.dg/
bind_c_usage_33_c.c
       1  #include <stdio.h>
       2  
       3  void odopen(int*);
       4  
       5  int main()
       6  {
       7    int unit = 42;
       8    odopen(&unit);
       9    if (unit != 8)
      10      {
      11        fprintf(stderr,"wrong result");
      12        return 1;
      13      }
      14     return 0;
      15  }