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
|