2008-12-01 Mikael Morin <mikael.morin@tele2.fr>
PR fortran/38252
* parse.c (parse_spec): Skip statement order check in case
of a CONTAINS statement.
2008-12-01 Mikael Morin <mikael.morin@tele2.fr>
PR fortran/38252
* gfortran.dg/empty_function_1.f90: New test.
From-SVN: r142327
+2008-12-01 Mikael Morin <mikael.morin@tele2.fr>
+
+ PR fortran/38252
+ * parse.c (parse_spec): Skip statement order check in case
+ of a CONTAINS statement.
+
2008-11-30 Daniel Kraft <d@domob.eu>
PR fortran/37779
{
bool verify_now = false;
- if (st == ST_END_FUNCTION)
+ if (st == ST_END_FUNCTION || st == ST_CONTAINS)
verify_now = true;
else
{
+2008-12-01 Mikael Morin <mikael.morin@tele2.fr>
+
+ PR fortran/38252
+ * gfortran.dg/empty_function_1.f90: New test.
+
2008-12-01 Uros Bizjak <ubizjak@gmail.com>
PR rtl-optimization/33642
--- /dev/null
+! { dg-do compile }
+!
+! PR fortran/38252
+! FUNCTION rejected if both specification and execution part are empty
+!
+! Contributed by Daniel Kraft <d@domob.eu>
+
+INTEGER FUNCTION test ()
+CONTAINS
+END FUNCTION test
+! { dg-do compile }
+!
+! PR fortran/38252
+! FUNCTION rejected if both specification and execution part are empty
+!
+! Contributed by Daniel Kraft <d@domob.eu>
+
+INTEGER FUNCTION test ()
+CONTAINS
+END FUNCTION test
+! { dg-do compile }
+!
+! PR fortran/38252
+! FUNCTION rejected if both specification and execution part are empty
+!
+! Contributed by Daniel Kraft <d@domob.eu>
+
+INTEGER FUNCTION test ()
+CONTAINS
+END FUNCTION test