void getarg_(int *pos, char *val, int len)
{
  _gfortran_getarg_i4(pos, val, len);
}