------- Comment #63 from jv244 at cam dot ac dot uk 2010-07-24 11:14 -------
even better testcase... no mismatching arguments:
SUBROUTINE fft_3d ( )
CALL fftsg3d ()
END SUBROUTINE fft_3d
SUBROUTINE fft_1dm ( )
END SUBROUTINE fft_1dm
SUBROUTINE fftsg3d ( )
CALL mltfftsg ( )
END SUBROUTINE fftsg3d
SUBROUTINE mltfftsg ( )
END SUBROUTINE mltfftsg
MODULE fft_tools
CONTAINS
SUBROUTINE fft3d_s ( )
CALL fft_3d ( )
END SUBROUTINE fft3d_s
SUBROUTINE fft3d_ps ( )
CALL fft_1dm ( )
END SUBROUTINE fft3d_ps
END MODULE fft_tools
END
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40011
