! { dg-do run } | |
! { dg-options "-fcheck=all -std=f2008 " } | |
! | |
! PR fortran/49255 | |
! | |
! Valid F2008, invalid F95/F2003. | |
! | |
integer,pointer :: ptr => null() | |
call foo (ptr) | |
contains | |
subroutine foo (x) | |
integer, optional :: x | |
if (present (x)) STOP 1 | |
end subroutine foo | |
end |