http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47984
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kargl at gcc dot gnu.org
--- Comment #1 from kargl at gcc dot gnu.org 2011-03-04 15:46:46 UTC ---
troutmask:sgk[205] gfc4x -o z -std=f2003 a.f90
a.f90:6.17:
call testsub(a%i)
1
Error: Fortran 2008: Non-pointer actual argument at (1) to pointer dummy 'p'
troutmask:sgk[212] svn blame interface.c | more
163262 burnus if (a->expr->expr_type != EXPR_NULL
163262 burnus && (gfc_option.allow_std & GFC_STD_F2008) == 0
163262 burnus && compare_pointer (f->sym, a->expr) == 2)
163262 burnus {
163262 burnus if (where)
163262 burnus gfc_error ("Fortran 2008: Non-pointer actual
argument at %L to "
163262 burnus "pointer dummy '%s'",
&a->expr->where,f->sym->name);
163262 burnus return 0;
163262 burnus }
troutmask:sgk[213] svn log -r 163262 |more
------------------------------------------------------------------------
r163262 | burnus | 2010-08-15 08:47:11 -0700 (Sun, 15 Aug 2010) | 12 lines
2010-08-15 Tobias Burnus <bur...@net-b.de>
* interface.c (compare_pointer, ): Allow passing TARGETs to
pointers dummies with intent(in).
