[Bug fortran/47984] Pointer dummy argument mismatch not detected by Fortran compiler

[kargl at gcc dot gnu.org]

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  <burnus@net-b.de>

        * interface.c (compare_pointer, ): Allow passing TARGETs to
        pointers dummies with intent(in).