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 |
+ |