mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-04-13 11:21:18 +08:00
lang-specs.h: Add support for .f03 and .F03 extensions.
fortran/ 2007-01-26 Tobias Burnus <burnus@net-b.de> * lang-specs.h: Add support for .f03 and .F03 extensions. * gfortran.texi: Document .f03 extension. * options.c (form_from_filename): Recognize .f03. testsuite/ 2007-01-26 Tobias Burnus <burnus@net-b.de> * gfortran.dg/gomp/gomp.exp: Support .f03 extension. * gfortran.dg/vect/vect.exp: Ditto. * gfortran.dg/dg.exp: Ditto. * gfortran.fortran-torture/execute/execute.exp: Ditto. * gfortran.fortran-torture/compile/compile.exp: Ditto. libgomp/ 2007-01-26 Tobias Burnus <burnus@net-b.de> * testsuite/libgomp.fortran/fortran.exp: Support .f03 extension. From-SVN: r121201
This commit is contained in:
parent
4b26d10bcc
commit
7befd5d26a
@ -1,3 +1,9 @@
|
||||
2007-01-26 Tobias Burnus <burnus@net-b.de>
|
||||
|
||||
* lang-specs.h: Add support for .f03 and .F03 extensions.
|
||||
* gfortran.texi: Document .f03 extension.
|
||||
* options.c (form_from_filename): Recognize .f03.
|
||||
|
||||
2007-01-25 Manuel Lopez-Ibanez <manu@gcc.gnu.org>
|
||||
|
||||
PR fortran/30437
|
||||
|
@ -367,8 +367,8 @@ the relevant compiler front-end program (e.g., @command{f951} for
|
||||
Fortran) for each file in the source code, and then calls the assembler
|
||||
and linker as appropriate to produce the compiled output. In a copy of
|
||||
GCC which has been compiled with Fortran language support enabled,
|
||||
@command{gcc} will recognize files with @file{.f}, @file{.f90}, and
|
||||
@file{.f95} extensions as Fortran source code, and compile it
|
||||
@command{gcc} will recognize files with @file{.f}, @file{.f90}, @file{.f95},
|
||||
and @file{.f03} extensions as Fortran source code, and compile it
|
||||
accordingly. A @command{gfortran} driver program is also provided,
|
||||
which is identical to @command{gcc} except that it automatically links
|
||||
the Fortran runtime libraries into the compiled program.
|
||||
|
@ -18,6 +18,7 @@ This file is licensed under the GPL. */
|
||||
-fpreprocessed %{!nostdinc:-fintrinsic-modules-path finclude%s} %{!fsyntax-only:%(invoke_as)}}}}", 0, 0, 0},
|
||||
{".F90", "@f95-cpp-input", 0, 0, 0},
|
||||
{".F95", "@f95-cpp-input", 0, 0, 0},
|
||||
{".F03", "@f95-cpp-input", 0, 0, 0},
|
||||
{"@f95-cpp-input",
|
||||
"cc1 -E -lang-fortran -traditional-cpp -D_LANGUAGE_FORTRAN %(cpp_options) \
|
||||
%{E|M|MM:%(cpp_debug_options)}\
|
||||
@ -26,6 +27,7 @@ This file is licensed under the GPL. */
|
||||
-fpreprocessed %{!nostdinc:-fintrinsic-modules-path finclude%s} %{!fsyntax-only:%(invoke_as)}}}}", 0, 0, 0},
|
||||
{".f90", "@f95", 0, 0, 0},
|
||||
{".f95", "@f95", 0, 0, 0},
|
||||
{".f03", "@f95", 0, 0, 0},
|
||||
{"@f95", "%{!E:f951 %i %(cc1_options) %{J*} %{I*}\
|
||||
%{!nostdinc:-fintrinsic-modules-path finclude%s} %{!fsyntax-only:%(invoke_as)}}", 0, 0, 0},
|
||||
{".f", "@f77", 0, 0, 0},
|
||||
|
@ -136,6 +136,9 @@ form_from_filename (const char *filename)
|
||||
".f95", FORM_FREE}
|
||||
,
|
||||
{
|
||||
".f03", FORM_FREE}
|
||||
,
|
||||
{
|
||||
".f", FORM_FIXED}
|
||||
,
|
||||
{
|
||||
|
@ -1,3 +1,11 @@
|
||||
2007-01-26 Tobias Burnus <burnus@net-b.de>
|
||||
|
||||
* gfortran.dg/gomp/gomp.exp: Support .f03 extension.
|
||||
* gfortran.dg/vect/vect.exp: Ditto.
|
||||
* gfortran.dg/dg.exp: Ditto.
|
||||
* gfortran.fortran-torture/execute/execute.exp: Ditto.
|
||||
* gfortran.fortran-torture/compile/compile.exp: Ditto.
|
||||
|
||||
2007-01-25 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
|
||||
|
||||
* gcc.dg/builtins-20.c: Add more cases.
|
||||
|
@ -30,7 +30,7 @@ dg-init
|
||||
|
||||
# Main loop.
|
||||
gfortran-dg-runtest [lsort \
|
||||
[glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95} ] ] $DEFAULT_FFLAGS
|
||||
[glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95,03} ] ] $DEFAULT_FFLAGS
|
||||
|
||||
gfortran-dg-runtest [lsort \
|
||||
[glob -nocomplain $srcdir/$subdir/g77/*.\[fF\] ] ] $DEFAULT_FFLAGS
|
||||
|
@ -12,7 +12,7 @@ dg-init
|
||||
|
||||
# Main loop.
|
||||
gfortran-dg-runtest [lsort \
|
||||
[find $srcdir/$subdir *.\[fF\]{,90,95} ] ] " -fopenmp"
|
||||
[find $srcdir/$subdir *.\[fF\]{,90,95,03} ] ] " -fopenmp"
|
||||
|
||||
# All done.
|
||||
dg-finish
|
||||
|
@ -90,7 +90,7 @@ proc check_effective_target_lp64_or_vect_no_align { } {
|
||||
dg-init
|
||||
|
||||
# Main loop.
|
||||
gfortran-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95} ]] $DEFAULT_VECTCFLAGS
|
||||
gfortran-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95,03} ]] $DEFAULT_VECTCFLAGS
|
||||
|
||||
# Clean up.
|
||||
set dg-do-what-default ${save-dg-do-what-default}
|
||||
|
@ -53,3 +53,9 @@ foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f95]] {
|
||||
fortran-torture $testcase
|
||||
}
|
||||
|
||||
foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f03]] {
|
||||
if ![runtest_file_p $runtests $testcase] then {
|
||||
continue
|
||||
}
|
||||
fortran-torture $testcase
|
||||
}
|
||||
|
@ -57,3 +57,9 @@ foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f95]] {
|
||||
fortran-torture-execute $testcase
|
||||
}
|
||||
|
||||
foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f03]] {
|
||||
if ![runtest_file_p $runtests $testcase] then {
|
||||
continue
|
||||
}
|
||||
fortran-torture-execute $testcase
|
||||
}
|
||||
|
@ -1,3 +1,7 @@
|
||||
2007-01-26 Tobias Burnus <burnus@net-b.de>
|
||||
|
||||
* testsuite/libgomp.fortran/fortran.exp: Support .f03 extension.
|
||||
|
||||
2007-01-24 Jakub Jelinek <jakub@redhat.com>
|
||||
|
||||
PR middle-end/30494
|
||||
|
@ -10,7 +10,7 @@ dg-init
|
||||
if [file exists "${blddir}/${lang_test_file}"] {
|
||||
|
||||
# Gather a list of all tests.
|
||||
set tests [lsort [find $srcdir/$subdir *.\[fF\]{,90,95}]]
|
||||
set tests [lsort [find $srcdir/$subdir *.\[fF\]{,90,95,03}]]
|
||||
|
||||
# Main loop.
|
||||
gfortran-dg-runtest $tests ""
|
||||
|
Loading…
x
Reference in New Issue
Block a user