gcc/testsuite/gfortran.dg/mixed_io_1.c

#include <stdio.h>
void cio_(void){
  printf("12345");
}