| Index: gcc/gcc/testsuite/gfortran.dg/proc_ptr_common_1.f90
|
| diff --git a/gcc/gcc/testsuite/gfortran.dg/proc_ptr_common_1.f90 b/gcc/gcc/testsuite/gfortran.dg/proc_ptr_common_1.f90
|
| index 0cfdec03d5adcfeaf49a4c616b4fefde3bd2dd06..df2ef0b79cc2e7477f6610c23e133ae6e986d66f 100644
|
| --- a/gcc/gcc/testsuite/gfortran.dg/proc_ptr_common_1.f90
|
| +++ b/gcc/gcc/testsuite/gfortran.dg/proc_ptr_common_1.f90
|
| @@ -19,7 +19,7 @@ program main
|
| integer :: x,y
|
| intrinsic sin,cos
|
| procedure(real), pointer :: func1
|
| - external func2
|
| + real, external :: func2
|
| pointer func2
|
| common /com/ func1,func2,x,y
|
| x = 5
|
| @@ -27,4 +27,5 @@ program main
|
| func1 => cos
|
| func2 => sin
|
| call one()
|
| -end program main
|
| +end program main
|
| +
|
|
|