Skip to content

Commit 6f71fac

Browse files
author
Damian Rouson
committed
refac: remove redundant public attributes
1 parent 2f8e743 commit 6f71fac

File tree

2 files changed

+7
-8
lines changed

2 files changed

+7
-8
lines changed

src/dag_m.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,7 @@ module dag_m
1515
type,public :: dag_t
1616
!! Encapsulate a graph as an array of vertices, each storing dependency information
1717
private
18-
type(vertex_t),dimension(:),allocatable :: vertices
18+
type(vertex_t), allocatable :: vertices(:)
1919
integer, allocatable :: order(:)
2020
contains
2121
procedure :: is_sorted_and_acyclic

src/vertex_m.f90

Lines changed: 6 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -9,21 +9,20 @@ module vertex_m
99
implicit none
1010

1111
private
12-
1312
public :: vertex_t
1413

15-
type :: vertex_t
14+
type vertex_t
1615
!! Encapsulate a node in a graph comprised of vertices connected by dependencies (edges)
1716
private
1817
integer, public, allocatable :: edges_(:)
19-
! integer, allocatable :: edges(:) - should be private, but a bug in GCC needs it to be public. When fixed, this will be private again
18+
! integer, allocatable :: edges(:) - should be private, but a bug in GCC needs it to be public. When fixed, this will be private again
2019
type(varying_string) :: label_
2120
character(len=:), allocatable :: attributes_
2221
contains
23-
procedure, public :: to_json
24-
procedure, public :: edges
25-
procedure, public :: label
26-
procedure, public :: attributes
22+
procedure :: to_json
23+
procedure :: edges
24+
procedure :: label
25+
procedure :: attributes
2726
end type
2827

2928
interface vertex_t

0 commit comments

Comments
 (0)