Commit 7befd5d2 by Tobias Burnus Committed by Tobias Burnus

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
parent 4b26d10b
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> 2007-01-25 Manuel Lopez-Ibanez <manu@gcc.gnu.org>
PR fortran/30437 PR fortran/30437
......
...@@ -367,8 +367,8 @@ the relevant compiler front-end program (e.g., @command{f951} for ...@@ -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 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 and linker as appropriate to produce the compiled output. In a copy of
GCC which has been compiled with Fortran language support enabled, GCC which has been compiled with Fortran language support enabled,
@command{gcc} will recognize files with @file{.f}, @file{.f90}, and @command{gcc} will recognize files with @file{.f}, @file{.f90}, @file{.f95},
@file{.f95} extensions as Fortran source code, and compile it and @file{.f03} extensions as Fortran source code, and compile it
accordingly. A @command{gfortran} driver program is also provided, accordingly. A @command{gfortran} driver program is also provided,
which is identical to @command{gcc} except that it automatically links which is identical to @command{gcc} except that it automatically links
the Fortran runtime libraries into the compiled program. the Fortran runtime libraries into the compiled program.
......
...@@ -18,6 +18,7 @@ This file is licensed under the GPL. */ ...@@ -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}, -fpreprocessed %{!nostdinc:-fintrinsic-modules-path finclude%s} %{!fsyntax-only:%(invoke_as)}}}}", 0, 0, 0},
{".F90", "@f95-cpp-input", 0, 0, 0}, {".F90", "@f95-cpp-input", 0, 0, 0},
{".F95", "@f95-cpp-input", 0, 0, 0}, {".F95", "@f95-cpp-input", 0, 0, 0},
{".F03", "@f95-cpp-input", 0, 0, 0},
{"@f95-cpp-input", {"@f95-cpp-input",
"cc1 -E -lang-fortran -traditional-cpp -D_LANGUAGE_FORTRAN %(cpp_options) \ "cc1 -E -lang-fortran -traditional-cpp -D_LANGUAGE_FORTRAN %(cpp_options) \
%{E|M|MM:%(cpp_debug_options)}\ %{E|M|MM:%(cpp_debug_options)}\
...@@ -26,6 +27,7 @@ This file is licensed under the GPL. */ ...@@ -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}, -fpreprocessed %{!nostdinc:-fintrinsic-modules-path finclude%s} %{!fsyntax-only:%(invoke_as)}}}}", 0, 0, 0},
{".f90", "@f95", 0, 0, 0}, {".f90", "@f95", 0, 0, 0},
{".f95", "@f95", 0, 0, 0}, {".f95", "@f95", 0, 0, 0},
{".f03", "@f95", 0, 0, 0},
{"@f95", "%{!E:f951 %i %(cc1_options) %{J*} %{I*}\ {"@f95", "%{!E:f951 %i %(cc1_options) %{J*} %{I*}\
%{!nostdinc:-fintrinsic-modules-path finclude%s} %{!fsyntax-only:%(invoke_as)}}", 0, 0, 0}, %{!nostdinc:-fintrinsic-modules-path finclude%s} %{!fsyntax-only:%(invoke_as)}}", 0, 0, 0},
{".f", "@f77", 0, 0, 0}, {".f", "@f77", 0, 0, 0},
......
...@@ -136,6 +136,9 @@ form_from_filename (const char *filename) ...@@ -136,6 +136,9 @@ form_from_filename (const char *filename)
".f95", FORM_FREE} ".f95", FORM_FREE}
, ,
{ {
".f03", FORM_FREE}
,
{
".f", FORM_FIXED} ".f", FORM_FIXED}
, ,
{ {
......
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> 2007-01-25 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* gcc.dg/builtins-20.c: Add more cases. * gcc.dg/builtins-20.c: Add more cases.
...@@ -30,7 +30,7 @@ dg-init ...@@ -30,7 +30,7 @@ dg-init
# Main loop. # Main loop.
gfortran-dg-runtest [lsort \ 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 \ gfortran-dg-runtest [lsort \
[glob -nocomplain $srcdir/$subdir/g77/*.\[fF\] ] ] $DEFAULT_FFLAGS [glob -nocomplain $srcdir/$subdir/g77/*.\[fF\] ] ] $DEFAULT_FFLAGS
......
...@@ -12,7 +12,7 @@ dg-init ...@@ -12,7 +12,7 @@ dg-init
# Main loop. # Main loop.
gfortran-dg-runtest [lsort \ gfortran-dg-runtest [lsort \
[find $srcdir/$subdir *.\[fF\]{,90,95} ] ] " -fopenmp" [find $srcdir/$subdir *.\[fF\]{,90,95,03} ] ] " -fopenmp"
# All done. # All done.
dg-finish dg-finish
...@@ -90,7 +90,7 @@ proc check_effective_target_lp64_or_vect_no_align { } { ...@@ -90,7 +90,7 @@ proc check_effective_target_lp64_or_vect_no_align { } {
dg-init dg-init
# Main loop. # 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. # Clean up.
set dg-do-what-default ${save-dg-do-what-default} set dg-do-what-default ${save-dg-do-what-default}
......
...@@ -53,3 +53,9 @@ foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f95]] { ...@@ -53,3 +53,9 @@ foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f95]] {
fortran-torture $testcase 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]] { ...@@ -57,3 +57,9 @@ foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f95]] {
fortran-torture-execute $testcase fortran-torture-execute $testcase
} }
foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f03]] {
if ![runtest_file_p $runtests $testcase] then {
continue
}
fortran-torture-execute $testcase
}
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> 2007-01-24 Jakub Jelinek <jakub@redhat.com>
PR middle-end/30494 PR middle-end/30494
......
...@@ -10,7 +10,7 @@ dg-init ...@@ -10,7 +10,7 @@ dg-init
if [file exists "${blddir}/${lang_test_file}"] { if [file exists "${blddir}/${lang_test_file}"] {
# Gather a list of all tests. # 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. # Main loop.
gfortran-dg-runtest $tests "" gfortran-dg-runtest $tests ""
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment