PR fortran/33229
* resolve.c (resolve_function): An intrinsic subroutine should
* not be
called as a function.
2008-09-06 Steven G. Kargl <kargls@comcast.net>
PR fortran/33229
* gfortran.dg/intrinsic_subroutine.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@140061
138bc75d-0d04-0410-961f-
82ee72b054a4
+2008-09-06 Steven G. Kargl <kargls@comcast.net>
+
+ PR fortran/33229
+ * resolve.c (resolve_function): An intrinsic subroutine should not be
+ called as a function.
+
2008-09-05 Daniel Kraft <d@domob.eu>
PR fortran/35837
if (expr->symtree)
sym = expr->symtree->n.sym;
+ if (sym && sym->attr.intrinsic
+ && !gfc_find_function (sym->name)
+ && gfc_find_subroutine (sym->name)
+ && sym->attr.function)
+ {
+ gfc_error ("Intrinsic subroutine '%s' used as "
+ "a function at %L", sym->name, &expr->where);
+ return FAILURE;
+ }
+
if (sym && sym->attr.flavor == FL_VARIABLE)
{
gfc_error ("'%s' at %L is not a function", sym->name, &expr->where);
+2008-09-06 Steven G. Kargl <kargls@comcast.net>
+
+ PR fortran/33229
+ * gfortran.dg/intrinsic_subroutine.f90: New test.
+
2008-09-06 Richard Sandiford <rdsandiford@googlemail.com>
* gcc.target/mips/mips.exp (dg-mips-options): Make
2008-09-05 Douglas Gregor <doug.gregor@gmail.com>
- PR c++/37342
- * g++.dg/other/canon-37342.C: New.
+ PR c++/37342
+ * g++.dg/other/canon-37342.C: New.
2008-09-05 Joseph Myers <joseph@codesourcery.com>
2008-09-02 Victor Kaplansky <victork@il.ibm.com>
* gcc.dg/fastmath-2.c: New.
-
+
2008-09-02 Jakub Jelinek <jakub@redhat.com>
PR tree-optimization/37095
--- /dev/null
+! { dg-do compile }
+! PR 33229
+implicit none
+intrinsic cpu_time
+real :: time
+print *, CPU_TIME(TIME) ! { dg-error "Intrinsic subroutine" }
+end