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