9 lines
287 B
Fortran
9 lines
287 B
Fortran
|
! { dg-do compile }
|
||
|
! PR fortran/20869
|
||
|
! Note 12.11 "A name shall not appear in both an EXTERNAL and an
|
||
|
! INTRINSIC statement in the same scoping unit.
|
||
|
program u
|
||
|
intrinsic :: nint
|
||
|
external :: nint ! { dg-error "EXTERNAL attribute conflicts with INTRINSIC attribute" }
|
||
|
end program u
|