1! { dg-do run }
2! { dg-additional-sources f2c_5.c }
3! { dg-options "-fno-f2c -w" }
4! Check calling conventions without -ff2c
5program f2c_5
6  call f2c_5a()
7end
8
9real function f2c_5b(x)
10  double precision x
11  f2c_5b = x
12end
13