2008-03-04 Uros Bizjak <ubizjak@gmail.com>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / f2c_5.f90

! { dg-do run }
! { dg-additional-sources f2c_5.c }
! { dg-options "-fno-f2c -w" }
! Check calling conventions without -ff2c
program f2c_5  
  call f2c_5a()
end

real function f2c_5b(x)
  double precision x
  f2c_5b = x
end