diff options
Diffstat (limited to 'flang/test/Semantics/assign03.f90')
-rw-r--r-- | flang/test/Semantics/assign03.f90 | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/flang/test/Semantics/assign03.f90 b/flang/test/Semantics/assign03.f90 index ce5897d41dc6..0c385b167c92 100644 --- a/flang/test/Semantics/assign03.f90 +++ b/flang/test/Semantics/assign03.f90 @@ -176,8 +176,7 @@ contains procedure(s), pointer :: p, q procedure(), pointer :: r external :: s_external - !ERROR: Procedure pointer 'p' with explicit interface may not be associated with procedure designator 's_external' with implicit interface - p => s_external + p => s_external ! OK for a pointer with an explicit interface to be associated with a procedure with an implicit interface r => s_module ! OK for a pointer with implicit interface to be associated with a procedure with an explicit interface. See 10.2.2.4 (3) end |