gcc/testsuite/gfortran.dg/only_clause_main.c


1
2
3
4
5
6
7
8
9
10
11
12

/* this is an f90 function */
void testOnly(int *cIntPtr);

int main(int argc, char **argv)
{
   int myCInt;

   myCInt = -11;
   testOnly(&myCInt);
   
   return 0;
}/* end main() */